如何让主窗提运行后不可见?过一会想让窗体在出现该怎么办!调用好象不行!(50分)

  • 主题发起人 主题发起人 byteh
  • 开始时间 开始时间
Application.ShowMainForm :=False;
然后使用timer控件,里面添加代码为:Show,即可。

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Show;
end;
 
//先把Application.ShowMainForm设为False
//阻止自动把MainForm显示出来
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm := False;
Application.Run;
end.
//用Timer或其他机制在你想显示的时候Show出MainForm来
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Show;
end;


 
呵呵
楼上比我早了一步。
 
后退
顶部