永发信息网

delphi多线程的问题

答案:2  悬赏:60  手机版
解决时间 2021-02-03 18:25
  • 提问者网友:半生酒醒
  • 2021-02-03 11:24
我在写一个软件的时候要用到delphi的线程类,就是不知道如何重新启动这个线程,注意是线程类
最佳答案
  • 五星知识达人网友:野慌
  • 2021-02-03 11:58
给你一个简单的参考代码:
delphi线程的创建、挂起、激活与终止

procedure TForm1.Button1Click(Sender: TObject);
begin
//创建线程,同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SuspendThread(hThread); //挂起线程
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ResumeThread(hThread); // 激活线程
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
TerminateThread(hThread,0); // 终止线程
end;
全部回答
  • 1楼网友:蕴藏春秋
  • 2021-02-03 12:58
重新启动这个线程??? 先把线程停止,然后再启动新的线程,还是先暂停,然后再启动呢? 停止使用 tthread.terminate; 暂停使用tthread.suspend ; 启动使用tthread.resume ; 直接启动使用tthreadvar:=tthread.create(false);
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯