procedure Tflashfm.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
flashfm.Close;
flashfm.Free;
//loginfm:=tloginfm.Create(application);
loginfm.showmodal;
end;我用上边的代码,为何启动窗体显示后loginfm不显示呢????????//
begin
timer1.Enabled:=false;
flashfm.Close;
flashfm.Free;
//loginfm:=tloginfm.Create(application);
loginfm.showmodal;
end;我用上边的代码,为何启动窗体显示后loginfm不显示呢????????//
begin
flashfm.Close;
flashfm.Free;
loginfm.showmodal;
end;
下面的语句怎么会执行呢..
去掉还是老样子,问题根本不在这里...
在MainForm的Create里创建就可以
然后Show出来
在Applicatin.Run前Free掉
不是这样的,在Application上作文章的,需要修改的是DPR文件
Application.Init...后
SplashForm := TSplashForm.Create(Nil);
SplashForm.Show;
SplashForm.Update;
Application.CreateFrom...
SplashForm.Free;
Application.Run;
这个流程才是正确的http://lysoft.7u7.net
begin
timer1.Enabled:=false;//這裡已經把timer停止了,下面的你寫什麼都不會執行的了!
ShowMessage('如果執行,則顯示!');//如果timer會執行下去,應該會有信息提示;
flashfm.Close;
flashfm.Free;
//loginfm:=tloginfm.Create(application);
loginfm.showmodal;
end;
procedure Tflashfm.Timer1Timer(Sender: TObject);
var
loginfm: Tloginfm;
begin
timer1.Enabled:=false;
flashfm.Close;
flashfm.Free;
loginfm:=tloginfm.Create(self);
loginfm.showmodal;
end;
>>flashfm.Free;
改為
flashfm.Hide;我估計你將 flashfm 設成主窗口了
至于登陆窗体,可以在主窗体的onShow事件中写
loginfm:=tloginfm.Create(application);
loginfm.showmodal;
loginfm.free楼主的写法看起来很别扭啊
flashfm.Close;
loginfm.showmodal;
flashfm.Free;