Delphi 中如何发送一个窗体上的按钮，按下消息

SendMessage(hwnd, WM_LBUTTONDOWN, Null, Null); //其中hwnd为按钮的句柄，可以用EnumChildWindows的方法得到 SendMessage(hwnd, WM_LBUTTONUP, Null, Null); //一定要随后发一个WM_LBUTTONUP的消息，否则按钮只下去，不起来^_

上面是论坛里的方法，这个不仅能够模拟自己程序的按钮点击，还能通过查找窗体模拟别的程序的按钮点击事件。

 

当我们只想模拟一下自己写的程序的按钮点击怎么办呢，这个很简单，看下面的例子：

 

拖拽一个speedbutton控件,这个按钮使我们要模拟点击的，之后添加代码

procedure TForm3.SpeedButton1Click(Sender: TObject); begin ShowMessage('bbt'); end;

 

再拖一个其他按钮控件，添加代码如下：

procedure TForm3.BitBtn1Click(Sender: TObject); begin SpeedButton1.Click; //实现 speedbutton 按钮的点击 end;