寻找DELPHI多线程例程 。。快帮帮我啊
来源:百度知道 编辑:UC知道 时间:2024/09/18 03:57:02
---------------------unit1-----------------------
Procedure tform1.clearcanvas;
Begin
With form1.Canvas Do
Begin
brush.Style := bssolid;
brush.Color := clwhite;
fillrect(ClipRect);
End;
End;
Procedure TForm1.Button1Click(Sender: TObject);
var th: ths;
Begin
clearcanvas;
th := ths.create(form1.Canvas, 100000);
End;
End.
---------------------unit1-----------------------
Type
ths = Class(TThread)
fcanvas: tcanvas;
fi: integer;
Private
{ Private declarations }
Protected
Procedure Execute; Override;
Public
Constructor create(canvas: tcanvas; i: integer);
End;
Implementation
Constructor ths.create(canvas: tcanvas; i: integer);
Begin
fcanvas := canvas;
fi := i;
Inherited Create(False);
End;
Procedure ths.Execute;
Var
i: inte