以下程序將教你如何制作一個窗體,窗體一旦運行將在屏幕上不斷抖動.

定義兩個變量:

var

BackLeft,BackTop,I:integer;

//保存窗體的left

BackLeft := Left;

//保存窗體的top

BackTop := Top;

//其中number可由你設置一個靈活的數字,當然值由你定

for I:=1 to Number do

begin  

//水平抖動
 Left:= (BackLeft-10) + (Random(20)); 

//垂直抖動
 Top := (BackTop-10) + (Random(20));

end;
//備份窗體的left
Left := BackLeft;

//備份窗體的top

Top  := BackTop;