delphi中如何在一个窗口中显示另一个窗体。。50分

Question

如两个窗体form1,form2
在form1中显示form2时，可将form2.parent:=form1

Answer 1

uses Temp       //要使用的窗体的单元procedure TManProForm.SBReferClick(Sender: TObject);
var
  TempForm: TTempForm;
begin
  TempForm:=nil;
  try
    TempForm:=TTempForm.Create(Application);
    TempForm.Caption:='消息查阅';
    TempForm.Position:=poMainFormCenter;
    TempForm.ShowModal();
  finally
    TempForm.Free;
  end;
end;

Answer 2

  假设有form1,form2，要想在form1中显示form2，可以调用语句：
  form2.showmodal； 如果你刚开始没有在form1添加form2窗体，那么第一次调用的时候，系统会提示是不是要加入，
选择是，然后再运行一次就行了；