請教一下各位前輩, 我原本處理 message 的宣告如下:    

type
  TForm1 = class(TForm)
  protected
    procedure WMUser(var message: TMessage); message WM_USER;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
procedure TForm1.WMUser(var message: TMessage);
begin
 
end;

如果我現在須要在 run time 時才決定處理那一個 message, 請問該如何做?

type
  TForm1 = class(TForm)
  protected
    procedure WMUser(var message: TMessage); message WM_USER;
  private
    { Private declarations }
    FProcessMessage: boolean;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
procedure TForm1.WMUser(var message: TMessage);
begin
    if FProcessMessage then begin
    end;
end;

嗯...可能小弟說的不清楚, 小弟的意思是真正要處理的 message 可能是 WM_USER, 可能是 WM_USER n (n 的值要到 run time 時才知道) 當我宣告 procedure WMUser(var message: TMessage); message WM_USER; WMUSer 這裡面只能收到 WM_USER 這個 message, 可是我要收的 message 是要到 run time 才知道, 這該如何處理?

You can only bind a procedure to single message only. BTW, the message number itself is Message.Msg. Use TApplicationEvents.OnMessage or write an handler for TApplication.OnMessage to process all messages. Beware! There are usually LOTS of messages and hence don't do any lengthly processing inside those handlers.

procedure WMUser(var message: TMessage); message WM_USER; 像你這樣已經指名此procedure處理那一個message,當然只能處理單一message. 你可以直接用windowProc處理所有message

type
  TForm1 = class(TForm)
  protected
    procedure MyWndProc(var message: TMessage);
    ...
  end;

在formCreate時 Windowproc:=MyWndproc;

 
procedure TForm1.MyWndProc(var Message: TMessage);
begin
  case message.Msg of
    wm_user:         wm_user 1:         else //若不是你要處理的message,呼叫 defaultHandle
      wndproc(message);
  end;
end;

謝謝版主, 小弟馬上去試試, 謝謝您了!!