Question

老师，在delphi中，我在form2的formshow中让它先显示form1代码

为Form1.showmodal;然后如果我在form1上放个按钮写上：self.close; form2.close;那点击按钮的时候为什么form1关闭了form2却显示出来了呢？

Answer 1

FormShow事件里，窗体是不能被Close关闭的。
你可以在form2的 FormShow里 写 seld.close 试试

你在form1里执行了 form2.close;
但此时 form2 还停顿在FormShow这个事件里。
此时Form2是不能被关闭的。

如果form2上放个按钮 执行 Form1.showmodal; （不放在formshow里
）

那form2可以被关闭

追问

那么怎样才能实现关闭呢

追答

最偷懒的办法是
form2 里加个 Timer1 设置为false

formshow 里写 Timer1.Enabled:=true;

Timer1里写
Timer1.Enabled:=false;
form1.ShowModal;

Answer 2

我的百度网盘推广链接，请支持下
http://yun.baidu.com/disk/beinvited?uk=4195699187
有了更大的空间，便能存更多的代码，服务更多的人，谢谢。

 

form2能够正常关闭，可能有其他代码限制了form2的关闭。

 

主要代码如下：

Form1

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Close;
Form2.Close;
end;

Form2

procedure TForm2.FormShow(Sender: TObject);
begin
Form1.ShowModal;
end;

 

Answer 3

因为在Form2的FormShow代码中执行完显示Form1之后, 代码继续执行, 不就把Form2显示出来了吗？
不知道你要实现怎么样的功能, 你这个功能, 多用于登录界面：
先显示登录界面, 再显示主窗体。

追问

对的，用于登陆界面