delphi 如何调用另外一个按钮的事件?

Question

假如我有2个按钮button1和button2procedure TfrmMain.Button1Click(Sender: TObject);
begin
     lbael1.caption:='A';
end;
现在我想当点击button2的时候,直接调用Button1的OnClick事件,索引我用
procedure TfrmMain.Button2Click(Sender: TObject);
begin
     frmMain.Button1Click(Sender: TObject);
end;
但是这样不能通过编译,如何才能达到这一目的?

Answer 1

frmMain.Button1Click(Sender: TObject); 
改为
Button1Click(slef);
或者直接在button2 的onClick事件上面选Button1onClick
在事件栏第一个

Answer 2

frmMain.Button1Click(Sender: TObject); 这个是定义哦

Answer 3

procedure TForm1.Button3Click(Sender: TObject);
var
c,d:tdatetime;
begin
c:=now;
Button2Click(Sender);
d:=now;
ShowMessage(IntToStr(SecondsBetween(c,d))+' s');
Button3.Enabled:=true;
end;

Answer 4

同一个窗体内不需要在加frmMain前缀了
之间用button1.click就可以了

Answer 5

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

Answer 6

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