5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hkbarton 2003-08-20
- 打赏
- 举报
to:sxwsg(sg)
假设主窗体是form1，你可以这样通知主窗体：postmessage(form1.Handle,WM_USER,0,0)
然后在主窗体中处理WM_USER就可以了
假设主窗体是form1，你可以这样通知主窗体：postmessage(form1.Handle,WM_USER,0,0)
然后在主窗体中处理WM_USER就可以了
yangxjn 2003-08-20
- 打赏
- 举报
WaitForSingleObject(...);
sxwsg 2003-08-20
- 打赏
- 举报
hkbarton(宁静至远||淡泊明志:
就是不知道用哪个函数发送消息啊，具体说一下这个函数如何用，可以吗
就是不知道用哪个函数发送消息啊，具体说一下这个函数如何用，可以吗
hkbarton 2003-08-19
- 打赏
- 举报
在覆盖的TThread类的Execute（既线程的主程序）方法的最后向窗口发送一条消息就可以了
knock 2003-08-19
- 打赏
- 举报
当然也可以通过加入一个boolean变量来判断
knock 2003-08-19
- 打赏
- 举报
很久以前记得有个函数叫WaitForSingleObject(...); 就是干这事的
zhuojohn 2003-08-19
- 打赏
- 举报
TMyThread...
procedure TForm1.OnButton1Click(Sender:TObject)
begin
...
MyThread:=TMyThread.Create;
MyThread.OnTerminate:=OnMyThreadTerminate;
...
end;
procedure TForm1.OnMyThreadTerminate;
begin
//To do what you want to do when my thread teminate
end;
procedure TForm1.OnButton1Click(Sender:TObject)
begin
...
MyThread:=TMyThread.Create;
MyThread.OnTerminate:=OnMyThreadTerminate;
...
end;
procedure TForm1.OnMyThreadTerminate;
begin
//To do what you want to do when my thread teminate
end;
