لرزاندن فرم

[Gladiator]

با سلام

به چه شکل میشه فرمی رو به لرزه در آورد ؟ قبلا توی فورام قدیمی سایت مثالی زده شده بود که متاسفانه در دسترس نیست .

متشکرم .

[Mahdiseif]

سلام


procedure TForm1.Button1Click(Sender: TObject);
var
p,n,m:integer;
begin
n:=form1.left;
m:=form1.top;
for p:=1 to 40 do begin
form1.left:=(n-10)+(random(20));
form1.top:=(m-10)+(random(20));
end;
form1.left:=n;
form1.top:=m;
end;


موفق باشی

[Mashatan]

اینو امتحان کن :wink:


Procedure TForm1.Zinggg;
var
oldTop,OldLeft,Move,
Time:Integer;
Begin
oldTop:=Top;
OldLeft:=Left;
Time:=50;
Move:=20;
Top:= oldTop-Move;
Sleep(Time);
Application.HandleMessage;

Top:= oldTop;
Sleep(Time);
Application.HandleMessage;

Left:= oldLeft-Move;
Top:= oldTop;
Sleep(Time);
Application.HandleMessage;

Left:= oldLeft+Move;
Top:= oldTop;
Sleep(Time);
Application.HandleMessage;

Left:= oldLeft;
Top:= oldTop+Move;
Sleep(Time);
Application.HandleMessage;

Left:= oldLeft-Move;
Top:= oldTop;
Sleep(Time);
Application.HandleMessage;


Top:=oldTop;
Left:=OldLeft;
Application.HandleMessage;
End;

ارادتمند
مشاطان

[Gladiator]

متشکرم .