Delphi 与 消息

Question

把  Application.OnMessage :=MyMsg ;其中 MyMsg 为自己写的消息处理函数。这样你就能够知道当前的消息是什么，并且可以做相应的处理。

Answer 1

先声明Procedure aaa (Var Message:TMessgae): message WM_SYSCOMMAND;Procedure aaa (Var Message:TMessgae);
begin
  if Message = 消息 then
  .......
  else
  ......
 
end;好像得用 Message.???（忘了）你自己再查查资料

Answer 2

procedure wndproc (var message: TMessage);overrideprocedure TXXX.wndproc(var message: TMessage);
begin
  if Message.Msg = Cm_Activate then
   
    ....
  else 
   inherited;
end;