线程挂起不管用？(20分)

lcl_003 · 2002-12-25

我创建了一个线程
MyThread.Create(false);
在一个窗体里的一个按钮里写
procedure TForm1.Button1Click(Sender: TObject);
begin
MyThread.suspend;
end;
为啥编译通不过？

xeen · 2002-12-25

MyThread要定义成全局变量

lcl_003 · 2002-12-25

哦，可以编译了。可是我
MyThread.suspend;
时还是报错

xeen · 2002-12-25

MyThread ;= TMyThread.Create(false);

wlmmlw · 2002-12-25

报什么错，列出来瞧一瞧 ^_^

vine · 2002-12-25

可能你这个时候MyThread还没有建立
if Assigned(MyThread) then
MyThread.suspend;

lcl_003 · 2002-12-25

是说"Abstract Error"
我刚开始创建线程是直接use线程的单元然后MyThread.create(false);
现在是把 MyThread定义成变量
MyThread:TThread;
然后创建
MyThread:=TThread.create(false)就不成：（

xeen · 2002-12-25

TThread 是抽象类，你的继承写个新类才可以.
File -> New -> Thread Object

vc3000 · 2002-12-25

同意楼上

lcl_003 · 2002-12-26

多人接受答案了。