如何在主Form显示后，再显示另外一个Form？

Question

RT

Answer 1

要同时显示吗?那就在主Form的OnActive事件中动态创建这个窗体
例:
uses Unit2;在Form1的OnActive中写:
Form2 := TForm2.Create(Application);
Form2.ShowModal;

Answer 2

在主Form的OnShow事件中
procedure TForm1.FormShow(Sender: TObject);
begin
 self.Refresh;
 Application.ProcessMessages;
 Form2.Show;
end;

Answer 3

unit Unit1;
..........
..........
implementation
uses unit2;
{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
end;

Answer 4

主窗体用MDIForm来实现,另外的穿体用DIChild

Answer 5

Form1主窗体，放一Panel，Form2副窗体，Form2属性自己调整一下if not assigned(Form2) then
          Form2:=TForm2.Create(self);
          Form2.WindowState:=wsMaximized;
          Form2.Parent:=Form1.Main_Panel;
          Form1.Main_Panel.bringtofront;
          Form2.Align:=alclient;
          Form2.Left:=0;
          Form2.Top:=0;
          Form2.Show;这种效果？

Answer 6

如果需要楼上兄弟的效果,那就用Frame吧

Answer 7

我得意思就是在主窗体显示以后，在显示另外一个窗口。
你们的答案都不行怎么不会行
在ONActive事件中
Form2.show看看

Answer 8

implementation
uses unit2;
{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
form2.Show;
end;

Answer 9

uses unit2;procedure TForm1.FormShow(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
form2.Show;end;

Answer 10

在一个Form创建显示的代码后面写创建显示另一Form的代码