启动窗体问题，大陕帮忙.............

Question

procedure Tflashfm.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
flashfm.Close;
flashfm.Free;
//loginfm:=tloginfm.Create(application);
loginfm.showmodal;
end;我用上边的代码，为何启动窗体显示后loginfm不显示呢？？？？？？？？//

Answer 1

timer的intever时间是多少？这个时间设置的太长就不行。

Answer 2

procedure Tflashfm.Timer1Timer(Sender: TObject);//设置间隔时间2秒，看看，别设几年哦:(
begin
flashfm.Close;
flashfm.Free;
loginfm.showmodal;
end;

Answer 3

楼主你一开始就把Timer的Enabled设为False了..
下面的语句怎么会执行呢..

Answer 4

那个timer1.Enabled:=false;
去掉还是老样子，问题根本不在这里...

Answer 5

是SplashForm呀
在MainForm的Create里创建就可以
然后Show出来
在Applicatin.Run前Free掉

Answer 6

要做SplashForm？
不是这样的，在Application上作文章的，需要修改的是DPR文件
Application.Init...后
SplashForm ：＝ TSplashForm.Create（Nil)；
SplashForm.Show;
SplashForm.Update;
Application.CreateFrom...
SplashForm.Free;
Application.Run;
这个流程才是正确的http://lysoft.7u7.net

Answer 7

代码虽然不爽，但功能上应该没有问题，可能是你把flashfm设置成mainform了，或者是loginfm未初始化，调试一下用单步运行就知道了3

Answer 8

procedure Tflashfm.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;//這裡已經把timer停止了,下面的你寫什麼都不會執行的了!
ShowMessage('如果執行,則顯示!');//如果timer會執行下去,應該會有信息提示;
flashfm.Close;
flashfm.Free;
//loginfm:=tloginfm.Create(application);
loginfm.showmodal;
end;

Answer 9

这样试试，flashfm在工程中动态创建：
procedure Tflashfm.Timer1Timer(Sender: TObject);
var
  loginfm: Tloginfm;
begin
  timer1.Enabled:=false;
  flashfm.Close;
  flashfm.Free;
  loginfm:=tloginfm.Create(self);
  loginfm.showmodal;
end;

Answer 10

http://soft.56kc.com/FileDown.aspx?FID=222

Answer 11

主要是在APPLICATION中加入显示闪的窗体的代码.

Answer 12

>>flashfm.Close;
>>flashfm.Free;
改為
flashfm.Hide;我估計你將 flashfm 設成主窗口了

Answer 13

启动界面建议用ly_liuyang(Liu Yang)的方法
至于登陆窗体，可以在主窗体的onShow事件中写
loginfm:=tloginfm.Create(application);
loginfm.showmodal;
loginfm.free楼主的写法看起来很别扭啊

Answer 14

timer1.Enabled:=false;
flashfm.Close;
loginfm.showmodal;
flashfm.Free;