用delphi制作抖動窗體

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

　　定義兩個變量

var
BackLeftBackTopI:integer;
//保存窗體的left
BackLeft := Left;
//保存窗體的top
BackTop := Top;
//其中number可由你設置一個靈活的數字當然值由你定
for I:= to Number do
begin　
//水平抖動
Left:= (BackLeft) + (Random());
//垂直抖動
Top := (BackTop) + (Random());
end;
//備份窗體的left
Left := BackLeft;
//備份窗體的top
Top　:= BackTop;

From:http://tw.wingwit.com/Article/program/Delphi/201311/8406.html