如何模拟一个按钮被按下的效果？？

Question

打个比方说，有两个按钮，各有一段代码，其中一个按钮的代码的功能是模拟另外一个按钮按下，并且当另外一个按钮产生按下效果的同时也执行该按钮的代码。请给出一点提示吧，多谢。

Answer 1

private sub command1_click()
  call  command2_click()
end sub

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y:integer;
begin
x:= form1.Left+button2.Left+25;
y:= top+button2.Top+27;
SetCursorPos(x,y);
sleep(500);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('fksj');
end;

Answer 3

PostMessage(self.Button1.Handle,WM_LBUTTONDOWN,0,0);

Answer 4

先获得按纽的句柄，假设是handle
PostMessage(Handle,WM_LBUTTONDOWN,0,0);
PostMessage(Handle,WM_LBUTTONUP,0,0);

Answer 5

PostMessage(Handle,WM_LBUTTONDOWN,0,0);