تغيير حجم و مكان زر ابدا في ويندوز

[Adnan]

تستطيع تغيير مكان زر ابدا و حجمه من خلال بعض التعليمات البرمجية
سنورد مثالا في دبلفي

ضع زرين و هذا الكود لليونيت كامل

=======================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd' , nil), 0, 'Button', nil),
300, 0 , 80, 22, true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd' , nil), 0, 'Button', nil),
0, 0 , 55, 22, true);
end;

end.
====================================


يمكن تحميل البرنامج من هنــا (http://www.electvillage.com/ve/files.php?action=viewfile&f=335&s=)

[يارا]

تسلم

مشكور