在登陆界面上进入后出现欢迎界面，5秒后自动进入主界面 怎么做啊
在登陆界面上进入后出现欢迎界面，5秒后自动进入主界面。
我在欢迎界面上放了一个timer控件，在timer事件中代码
procedure Thy_Form.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=timer1.Interval;
if i=5000 then
zjm_form.Show; //主界面
hy_form.Hide; //欢迎界面
end;
[解决办法]
Application.Initialize;
Application.Title:= 'ShopFloor Information System ';
WelcomeInfo_Frm:=TWelcomeInfo_Frm.Create(Application);
WelcomeInfo_Frm.Show;
WelcomeInfo_Frm.Update;
LoginInfo_Frm:=TLoginInfo_Frm.Create(Application);
Sleep(1200);
WelcomeInfo_Frm.Free;
WelcomeInfo_Frm:=nil;
LoginInfo_Frm.Free;
LoginInfo_Frm:=nil;
Application.CreateForm(TMainInfo_Frm,MainInfo_Frm);
Application.Run;
[解决办法]
还有最后别忘了在登陆成功后加个timer1.enabled:=false;否则将一直进行，浪费资源
