delphi中制作抖動窗體

以下程序將教你如何用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;