ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 用delphi制作抖动窗体 (转)

用delphi制作抖动窗体 (转)

原创 Linux操作系统 作者:amyz 时间:2007-10-29 08:17:33 0 删除 编辑
用delphi制作抖动窗体 (转)[@more@]

以下程序将教你如何制作一个窗体,窗体一旦运行将在屏幕上不断抖动.

定义两个变量:

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;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-979254/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7335176