问一个窗体调用的小问题

Question

A,B,C.....X窗体，都调用Z窗体Z窗体怎么知道是　被哪一个窗体调用的呢？ owner

Answer 1

不存在被谁调用，A、B、C要调用Z窗体的时候，总要去创建它的一个实例啊

Answer 2

是呀！好吧！　我再把问题讲清楚一点。在A.窗体有一个panel, 　如何让Z窗体显示在A的panel正中间

Answer 3

to My_first  Form2 := TForm2.Create(Self.Panel1);
  Form2.parent := Self.Panel1;
  Form2.Top := Self.Panel1.Top-67;
  Form2.Left := Self.Panel1.Left-80;
  Form2.Width := Self.Panel1.Width;
  Form2.Height := Self.Panel1.Height;
  Form2.Show;

Answer 4

接分先
find一下不就可以了

Answer 5

to 楼上的，如果你　　
  Form2 := TForm2.Create(Self.Panel1);
Form2.parent := Self.Panel1;
你这样是对的，　但form2的活动范围就只能在panel1 里面，而不能到外头  Form2.Top := Self.Panel1.Top-67;
  Form2.Left := Self.Panel1.Left-80;这里需要计算一下，

Answer 6

procedure TForm2.FormShow(Sender: TObject);
begin
Self.Left:=Form1.Left+form1.Panel1.left+round((Form1.Panel1.Width-self.Width)/2);
Self.top:=Form1.top+form1.Panel1.top+round((Form1.Panel1.height-self.height)/2);
end;