请问:向线程发消息,可是接收不稳定,有什么注意事项(100分)

  • 主题发起人 主题发起人 mazhayang
  • 开始时间 开始时间
M

mazhayang

Unregistered / Unconfirmed
GUEST, unregistred user!
在线程中用
PeekMessage( msg, 0, 0, 0, PM_REMOVE )来检索消息
可是有时接收不到,接收完毕后又删除改消息
请问有什么注意事项?
 
试试这个
procedure TMyThread.ThreadWndProc(var Message:TMessage);
begin

if Message.Msg=WM_DESTROY then

begin

Terminate;
FMEssage:=Message;
FEvent.SetEvent;
FOwner.WindowProc:=FOwnerProc;
FOwnerProc:=nil;
FOwner:=nil;
end;

if Message.Msg=所要处理的消息 then

begin

FMessage:=Message;
FEvent.SetEvent;
end
else
if Assigned(FOwnerProc) then
FOwnerProc(Message);
end;

 
多人接受答案了。
 
后退
顶部