分少，别嫌弃！！！！

Question

procedure tform1.button1click(sender:tobject)
begin
   form2.show;
end; procedure tform1.button2click(sender:tobject)
begin
   form2.show;
end;我的问题是在form2显示后，如何在form2中得到是button1还是button2触发它显示的？

Answer 1

那就不调用Show方法，自己写一个Show方法，如下：type
  TForm2 = class(TForm)
    ...
  private
    CalledBy: TButton;
  public
    procedure ShowForm(AButton: TButton);
  end;...procedure TForm2.ShowForm(AButton: TButton);
begin
  CalledBy := AButton;
  Show;
end;

Answer 2

在form2里放一个label，在button的onclick事件中让form2中的label控件显示button的name属性，这样试试吧。

Answer 3

需要传一下能识别button1,button2的标识，比如name值