D
dorser1
Unregistered / Unconfirmed
GUEST, unregistred user!
我有FORM1,FORM2,FORM3,想运行程序时先显示FORM1,再创建FORM2,FORM3，因为FORM2,FORM3上有连接网站下载数据和连接数据库，所以比较慢，等FROM2,FORM3创建完成后再关闭FORM1，大家帮我想想啊：）
鹅
鹅卵石
Unregistered / Unconfirmed
GUEST, unregistred user!
你在From1的show事件中写代码不就可以了吗。
procedure TForm1.FormShow(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.Show;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.Show;
end;
Y
ye5420
Unregistered / Unconfirmed
GUEST, unregistred user!
将FORM1做成启动画面就可以
W
wghmy
Unregistered / Unconfirmed
GUEST, unregistred user!
一、你可以将链接数据库的代码写在某个窗体事件中。
二、你可以做一个等待的窗口提示用户目前正在做什么---请等待。[
]
二、你可以做一个等待的窗口提示用户目前正在做什么---请等待。[
]
D
dorser1
Unregistered / Unconfirmed
GUEST, unregistred user!
启动画面如何做呢？大虾给个简单的离子吧：）
D
dorser1
Unregistered / Unconfirmed
GUEST, unregistred user!
大家帮忙啊，急
X
xianjun
Unregistered / Unconfirmed
GUEST, unregistred user!
begin
Application.Initialize;
Form1 := TForm1.Create(nil); //Form1是启动画面
try
Form1.Show;
Form1.Update;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
finally
Form1.Release;
end;
Application.Run;
end.
Application.Initialize;
Form1 := TForm1.Create(nil); //Form1是启动画面
try
Form1.Show;
Form1.Update;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
finally
Form1.Release;
end;
Application.Run;
end.
B
billwon
Unregistered / Unconfirmed
GUEST, unregistred user!
我也想知道啊：）
G
ggscw
Unregistered / Unconfirmed
GUEST, unregistred user!
还是自己看看书。。。没办法。。。
D
dorser1
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
W
wcy12td
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，启动画面 的制作也很多种方法~~~
楼上的是一种方法，
还有另外个一种，在form1 中加一个 timer 然后
在timer的事件中编写 过了多少时间后，form1.hide；
form2.show；
form2.show ；
具体代码下次来给你！~~~
楼上的是一种方法，
还有另外个一种，在form1 中加一个 timer 然后
在timer的事件中编写 过了多少时间后，form1.hide；
form2.show；
form2.show ；
具体代码下次来给你！~~~