窗体(50分)

大虾，有两个窗体可以调用同一个子窗体，现在的问题是子窗体如何知道是哪个窗体调用的
他呢？主要是用于返回选择，具体应该怎么写呢？

你可在调用子窗体前做一个标志
例如 form1和form2为都要调用form3则：
form1:
form3.tag:=1;
form3.show;

form2:
form3.tag:=2;
form3.show;

if self.Parent.Name = form1 then
begin
//...
end ;

在第三个窗体中有.
public
procedure init(flag :string); //将传来的参数赋给一变量

两个窗体在调用前,调用init初始化.
尤变量判断是哪个窗体调用的.

在Form1，Form2，Form3上都放上一个button1
Form1
uses
unit3;
---
Form2
uses
Unit3;
---
Form3
uses
Unit1;

procedure TForm1.Button1Click(Sender: TObject);
begin
form3.Button1.Click;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form3.Button1.Click;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if Form1.active then
showMessage('Form1 Transfer');
if Form2.Active then
showMessage('Form2 Transfer');

多人接受答案了。