delphi 时钟控件只调用一次怎么写。就是欢迎界面跳到登陆只跳一次。谢谢

千问 · 2011-5-18 11:23:23

在你timer控件的timer事件入口加上
Timer1.Enabled:=False;

如：
procedureTForm1.Timer1Timer(Sender:TObject);
begin
Timer1.Enabled:=False;
//你的其他代码
end;

<h4class=\"ask\">追问

procedureTForm1.Timer1Timer(Sender:TObject);
begin
Timer1.Enabled:=False;
form2.show；
form1.hide；
还是停止不了

千问 · 2011-5-18 11:23:23

我明白你的意思，这个跟Timer无关。
第一次进入的时候显示欢迎界面，可以设置一个变量
showWelcome:Boolean;
初始化为showWelCome:=True;
第一次显示之后，设置为showWelCome:=False;
然后在第二次进来时判断showWelCome，如果为False就不处理了。