100分求解：从TComponent派生出的组件里，如果我想实现类似于Application.ProcessMessages的功能，应该用什么函数？

Question

从TComponent派生出的组件里，如果我想实现类似于Application.ProcessMessages的在某一函数中可以处理系统消息而不退出函数，应该用什么函数？100分送上。

Answer 1

还是由我来决吧.
定义一个 MSG : TMsg;
增加一个函数 procedure DoEvent();
procedure DoEvent();
begin
  while (GetMessage(Msg, Handle, 0, 0)) do
  begin
    TranslateMessage(Msg); 
    DispatchMessage(Msg); 
  end; 
end;完全工作正常.

Answer 2

是啊,忘了,用peekmessage更好.
the PeekMessage function does not wait for a message to be placed in the queue before returning
而getmessage是一定要等到某个消息才返回的.