我有一个程序,要求,form1显示后立即隐藏,form2立即显示。怎么解决?(10分)

  • 主题发起人 主题发起人 sohuandsina
  • 开始时间 开始时间
S

sohuandsina

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个程序,要求,form1显示后立即隐藏,form2立即显示。怎么解决?
我先试图用timer控件,发现有问题,有时候正常,有时候不正常,
有没有其他更好的方法。
我的问题不是让form1不出现,是让他出现后立即隐藏,接着form2显示。
谢谢。
 
在form1窗体上加个timer控件

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
time1:integer;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Timer1.Interval:=25;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
time1:=time1+1;
if (time1=3) then
begin
form1.Visible:=false;
form2.Visible:=true;
end;
end;

end.
 
能不能从程序的启动画面中得到点提示?我会的不是很多,仅供参考。
 
在TForm1得OnCreate事件中添加如下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
show;
update;
with TForm2.Create(self) do
try
show;
Update;
sleep(10000);

finally
free;
end;

end;
 
在DELPHI开发人员指南上有一个例子代码都有
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部