用delphi制作抖動(dòng)窗體

以下程序?qū)⒔棠闳绾沃谱饕粋�(gè)窗體,窗體一旦運(yùn)行將在屏幕上不斷抖動(dòng).

定義兩個(gè)變量:

var

BackLeft,BackTop,I:integer;

//保存窗體的left

BackLeft := Left;

//保存窗體的top

BackTop := Top;

//其中number可由你設(shè)置一個(gè)靈活的數(shù)字,當(dāng)然值由你定

for I:=1 to Number do

begin  

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

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

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

//備份窗體的top

Top  := BackTop;