小
小天
Unregistered / Unconfirmed
GUEST, unregistred user!
DPR文件中写有:
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
Form1中写有:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
end;
Form2中写有:
procedure TForm2.MButton1Click(Sender: TObject);
begin
hide;
end;
我在Form2中按了按钮后就什么也没有了,请问我怎么才能把Form1显示出来呢?
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
Form1中写有:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
end;
Form2中写有:
procedure TForm2.MButton1Click(Sender: TObject);
begin
hide;
end;
我在Form2中按了按钮后就什么也没有了,请问我怎么才能把Form1显示出来呢?