怎样在mainform.oncreate中打开另一个form???

Question

怎样在mainform.oncreate中打开另一个form???

Answer 1

uses unit2;
var form2:TForm2;
begin
 Form2:=TForm2.create(self);
 Form2.showmodal;
 Form2:=nil;
end;

Answer 2

procedure TFormMain.FormCreate(Sender: TObject);
begin
  with TForm{YourName}.Create(Self) do try //要自己创建
    Caption := '主窗体是运用程序创建的第一个窗体，因为还没有创建其他窗体，所以创建事件就无法访问。';
    ShowModal;
  finally
    Free;
  end;
end;