分少，别嫌弃！！！！

[mbzdh]

procedure tform1.button1click(sender:tobject)
begin
form2.show;
end;

procedure tform1.button2click(sender:tobject)
begin
form2.show;
end;

我的问题是在form2显示后，如何在form2中得到是button1还是button2触发它显示的？

[AaronChengBJ]

那只能将sender传过去了

[mbzdh]

哥们，怎么传呀，

[ronaldli]

那就不调用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;

[jycjd]

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

[wolf2005]

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