procedure TForm1.Button2Click(Sender: TObject);
begin
     Button1Click(Sender);
end;

解决方案 »

  1.   

    chegan(不必在意许多)  是应该学习,提出问题,再得到解决的方法不也是学习的过程吗?如果刚才你能帮我解决,那我倒是应该谢谢你的
      

  2.   

    iamycfwsy(毅峰)
    你别误会,我是说我在这里学习学习别人怎么结局这个问题
      

  3.   

    chegan(不必在意许多)   本来就不大好意思了,听你这么一说,就更不好意思的sorry
      

  4.   

    Button1.click;

    Button1click(Sender);

    SendMessage(Button1.Handle,WM_KEYDOWN,0,0);
    SendMessage(Button1.Handle,WM_KEYUP,0,0);