我晕,为什么那么简单的代码都不能实现窗口关闭??

Question

代码如下:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  Tfrmsplash = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  frmsplash: Tfrmsplash;implementation{$R *.dfm}procedure Tfrmsplash.FormCreate(Sender: TObject);
begin
frmsplash.close;
end;end.
选择运行以后,form窗口为什么没有关闭????

Answer 1

你这是做什么呢？将frmsplash.close;放到OnShow事件里去试试

Answer 2

procedure Tfrmsplash.FormCreate(Sender: TObject);
begin
frmsplash.close;
end;end.
这段代码不应该在这里写，如果要让程序关闭，应该在ONCLOSE事件里写

Answer 3

在OnCreate的时候窗口还没有建立完成，你就Close当然关闭不了了

Answer 4

procedure Tfrmsplash.FormCreate(Sender: TObject);
begin
frmsplash.close;//窗体没创建完就关闭，这是不正确的，这句应放在onclose事件中
end;