請教各位:    我在一form中放上一button用來發出一個MESSAGE ,並用一個timer來接收是否有message進來並改變form上某個checkbox的狀態, (我最終是要把button 替換成由Thread上送出message的功能,以改變主form上checkbox的狀態). 我試做了一下沒有成功,卻找不出問題點 程式碼如下;    請問是哪裡有問題    謝謝    

const
   WM_SPECIAL_RELEASE_KB          = WM_USER   0;
   WM_SPECIAL_ID_STATUS_CHANGE    = WM_USER   1;    procedure TForm1.Button2Click(Sender: TObject);
var
  Msg:Tmsg;
begin
   postMessage(Self.handle,WM_SPECIAL_RELEASE_KB,1,0);
end;    procedure TForm1.Timer1Timer(Sender: TObject);
var
  Msg:TMsg;
begin
  waitMessage;
  if peekMessage(Msg,0,0,0,PM_REMOVE) then
    begin
      listBox1.Items.Add(format('%d', [Msg.message] ) );
      while listbox1.Items.Count > 40 do
        listbox1.items.Delete(0);
      
      case Msg.message of
        WM_SPECIAL_RELEASE_KB:
          begin
             if btnOptKm.Enabled then
               btnOptKm.Checked  := not btnOptKm.Checked;
          end;
        else
          begin
            TranslateMessage(Msg);
            DispatchMessage(Msg);
          end;
      end;
    end;    end;    

    參考下頭的程式碼吧!!    

const
  UM_TEST=WM_USER 1 ;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure UMTEST(var msg:TMessage) ; message UM_TEST ;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.UMTEST(var msg:TMessage) ;
begin
  ShowMessage(format('WParam=%X, LParam=%X',[msg.wParam,msg.lParam])) ;
end ;    procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(self.handle,UM_TEST,0,255) ;
end;    end.  

...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

哈 原來這樣就可以啦 我想的太複雜了 感謝