寻找DELPHI多线程例程 快进来看看

来源：百度知道 编辑：UC知道 时间：2024/07/01 06:01:13
希望高手写个例程给我看看。最好是用一个线程累加数并显示在界面上，按停止按钮就可以结束线程。谢

---------------------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