کلینیک دلفی

براي اينكه بتونين به فرمتون شوك بدين : شبيه وقتي كه تو مسنجر رو Buzz كليك ميكنين : ....

procedure TForm1.Button1Click(Sender: TObject);

var

N     : Integer; //Counter

TL,TT : Integer; //Backup for LEFT and TOP of teh FORM

begin

TL := Left; //Backups Left of the Form

TT := Top;  //Backups Top  of the Form

//********************************************************************

for N:=1 to 40 do begin  //Counter Time

 { Left:= (TL-10) + (Random(20)); {Shake Range in Horizontal Driection

{  Top := (TT-10) + (Random(20)); {Shake Range in Vertical   Driection

End;

//*********************************************************************

Left := TL; //Restores Left of the Form

Top  := TT; //Restores Top  of the Form

End; 

اميدوارم مفيد بوده باشه ...