在线程中可以做消息响应吗？

[1016133]

在线程中可以做消息响应吗？

[土著巫师]

1:

void __fastcall TMyThread::Execute()
{
...
while(!Terminated) if(!ListenMessage()) SleepEx(0, false);
...
}

bool __fastcall TMyThread::ListenMessage()
{
MSG Msg;

if(PeekMessage(&Msg, NULL, 0, 0, PM_REMOVE))
{
if(Msg.message == WM_????) //自定义消息,用PostThreadMessage(...)发送进来
{
//在这里做你自己的事
}
else if(Msg.message == WM_????) //自定义消息,用PostThreadMessage(...)发送进来
{
//在这里做你自己的事
}
else //系统消息
{
TranslateMessage(&Msg);
DispatchMessage(&Msg);
}
return true;
}
return false;
}

2:
Application的ProcessMessage()方法就是这么做的

3:
用BCB的人一定要学OBJECT PASCAL了解VCL源码，祝你好运。


附：建议以后发帖子前先找一下以前的贴子。

[softman_2000]

你说的是用户界面线程。

[叶子哟]

工作线程中没试过!
但是可以人为控制线程的启动和运行

[asimpleman]

gz