參考下面小弟做了個迷你的版本測試 Thread
http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=85907
完整程式在附件, TForm1.WMCHANGE 永遠沒執行到, 為什麼?
Unit1.pas 中
<textarea class="delphi" rows="10" cols="60" name="code"> type procedure WMCHANGE(var Msg: TMessage); procedure TForm1.FormCreate(Sender: TObject); begin t1:= TtestThread.Create(true); t1.P1:='t1'; t1.Resume; end; procedure TForm1.WMCHANGE(var Msg: TMessage); begin Memo1.Lines.Add(t1.P1); // 永遠沒執行到, 為什麼? end; Unit2.pas 中 const WM_CHANGE = WM_USER 1973; procedure TtestThread.Execute; begin SendMessage(Wnd, WM_CHANGE, wParam(P1), lParam(P1)); end; </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

附加檔案：459b61a5c3f06_t.zip

在訊息宣告的部份，你宣告錯了
如下才是正確的：
procedure WMCHANGE(var Msg: TMessage); message WM_CHANGE;

------
GPS（全球衛星定位系統）
http://www.allgps.com

在訊息宣告的部份，你宣告錯了
如下才是正確的：
procedure WMCHANGE(var Msg: TMessage); message WM_CHANGE;

------
GPS（全球衛星定位系統）
http://www.allgps.com

有辦法在 TForm1.WMCHANGE 中收好幾種訊息嗎 ?
(然後根據不同訊息做不同事情)
下面宣告好像行不通
procedure WMCHANGE(var Msg: TMessage); message WM_CHANGE; message WM_CHANGE2;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

1. 一樣使用 procedure WMCHANGE(var Msg: TMessage); message WM_CHANGE;

2. 在 SendMessage 的時候, 利用 WParam 和 LParam 來判斷資料, 如
SendMessage(Wnd, WM_CHANGE, 1, LParam(P1));
SendMessage(Wnd, WM_CHANGE, 2, LParam(P1));

3. 在程式裡面判斷
Procedure Tform1.WMCHANGE(var Msg: Tmessage);
Begin
If Msg.Wparam = 1 then
Begin
///////////////////
End else
If Msg.Wparam = 2 then
Begin
///////////////////
End;
End;

===================引 用 文 章===================

有辦法在 TForm1.WMCHANGE 中收好幾種訊息嗎 ?
(然後根據不同訊息做不同事情)

下面宣告好像行不通
procedure WMCHANGE(var Msg: TMessage); message WM_CHANGE; message WM_CHANGE2;