在Form的Image组件上随机绘制不同色彩的线条

运行结果截图：
{作用：在窗体的Image组件随机画不同颜色的线环境：delphi7+winxp3 通过测试完成时间：12:10 2011-3-9}//************************unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Image1: TImage; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; act:Boolean;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);//暂停begin act:=False; Label2.visible:=True; //暂停报告 Label1.Visible:=False;end;procedure TForm1.Button2Click(Sender: TObject);//恢复begin act:=True; Form1.Activate;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin act:=False;//先终止循环 Application.Terminate;//停止end;procedure TForm1.FormActivate(Sender: TObject);//窗体出现时就运行begin Label1.Visible:=True; //运行报告 Label2.Visible:=False; act:=True; while act do begin with form1.Image1.Canvas do begin Pen.Color:=RGB(random(255),random(255),random(255)); //以随机RGB色彩为画笔颜色属性赋值 LineTo(random(Image1.Width),random(Image1.Height)); sleep(500);//令刷新的时间间隔为500毫秒 Application.ProcessMessages;//这句是关键，可以避免进程被锁死。使系统可以接受其他请求信息。 end; end;end;end.

 

运行结果截图：