用delphi制作抖动窗体计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:32:01
来源 100Test.Com百考试题网

　　以下程序将教你如何制作一个窗体,窗体一旦运行将在屏幕上不断抖动.
　　定义两个变量:百考试题－全国最大教育类网站(100test.com)
　　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.
　　//备份窗体的leftwww.Ｅxamda.CoM考试就到百考试题
　　Left := BackLeft.
　　//备份窗体的top
　　Top := BackTop.

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台