熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

用delphi制作抖動窗體

2013-11-11 21:04:13  來源: 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
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.