窗体创建问题

Question

procedure ShowModalForm(aFormClass: TFormClass);
begin
  with aFormClass.Create(Application) do
  try
    showModal;
  finally
    free;
  end;
end;
在form1中ShowModalForm(form2），如何在form2中知道是否在form1创建了自己？
如何传递参数至form1？

Answer 1

procedure ShowModalForm(aFormClass: TFormClass,towner:tobject);
begin
  with aFormClass.Create(Application) do
  try
     owner:= towner;
    showModal;
  finally
    free;
  end;
end;
然后在form2中判断if owner =form1

Answer 2

我想从form2中返回一个值到form1中，而不想修改ShowModalForm过程，该怎么办？

Answer 3

可以在form1中增加一个public 变量，在form2中对其赋值，然后在form1中使用。

Answer 4

在form1中添加一个属性来得好

Answer 5

呵呵 firetoucher(风焱)兄 还真快