怎样处理多个自定义消息？

Question

这个代码只能处理指定的一个消息，如果我定义了N个消息，那就要写N个过程
我想定义N个消息，只在一个过程里判断执行相应代码该怎么写？const
  WM_My = WM_USER + 100;private
    procedure MyMsg(var Msg: TMessage); message WM_My;procedure TForm1.MyMsg(var Msg: TMessage);
begin
  if Msg.MSg = WM_My then Caption := 'WM_My';
end;

Answer 1

重载窗口过程WndProc，在里面用Case处理不同的消息。

Answer 2

const
  WM_My = WM_USER + 100;private
    procedure WndProc(var Msg: TMessage); override;procedure TForm1.WndProc(var Msg: TMessage);
begin
  case Msg.MSg of
  WM_My : 
  begin
    Caption := 'WM_My';
    Exit;
  end;
  end;  inherited WndProc(Msg);
end;