用delphi制作抖動窗體

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

　　定義兩個變量:

　　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;