主题:一个DELPHI小问题
我的第一个界面是一个欢迎界面我设置的大于5秒自动跳入第2界面然后我在第二个界面的ONSHOW事件中写入FORM1.CLOSE;为什么关不了啊,别的窗体用这种方法都能关闭.我每次都得用结束程序关它,怎么才能在第二个界面弹出时把它关了啊第一界面程序如下
procedure TForm1.Timer1Timer(Sender: TObject);
begin
spinEdit1.Value:=spinedit1.Value+1;
if spinedit1.Value>=5 then begin
Timer1.Enabled:=FALSE;
FORM2.SHOW;
end;
end;
end.
哪位能给解决一下呀,麻烦了?
此帖转自:[url]http://www.programfan.com/team/team.asp?team_id=1382[/url]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
spinEdit1.Value:=spinedit1.Value+1;
if spinedit1.Value>=5 then begin
Timer1.Enabled:=FALSE;
FORM2.SHOW;
end;
end;
end.
哪位能给解决一下呀,麻烦了?
此帖转自:[url]http://www.programfan.com/team/team.asp?team_id=1382[/url]