D7下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
Form3.Show;
end;
//在IDLE事件中处理一下,否则这两个窗体关闭后回不到Form1
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
vardo
ne: Boolean);
begin
if (not Form2.Active) and (not Form3.Active) then
if not Form1.Active then
Form1.Show;
end;