procedure TForm1.my123();
begin
//这里想执行button1的click中的代码
end;

解决方案 »

  1.   

    button1.onclick;或 Button1Click(Sender);
      

  2.   

    button1.click;
    procedure TForm1.my123();
    begin
      button1.click;//这里想执行button1的click中的代码
    end;
      

  3.   

    button1.onclick;
    Button1Click(Sender);
      

  4.   

    button1click(nil)空格换成英文的
      

  5.   

    Button1.OnClick,Button1.OnClick(nil),Button1.OnClick(Self);

    Button1Click(nil),Button1Click(Self);
    我喜欢后者,因为可以用Ctrl+鼠标左键导航过去。
      

  6.   

    支持 JohnSUN2002() ( ) 信誉:100 這樣可以在閱讀源碼的時候快速找到此過程;