2014-03-13
展开全部
使用Timer控件就可以实现。implementation
uses unit2; //上一窗体与下一窗体衔接。
var //定义全局变量i。
i:Integer;
{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i=3 then
Form1.Hide;
Form2.Show;
end;
uses unit2; //上一窗体与下一窗体衔接。
var //定义全局变量i。
i:Integer;
{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i=3 then
Form1.Hide;
Form2.Show;
end;
2014-03-13
展开全部
Timer设置Enabled为false 时间为3000 窗体active后Enabled设置为false
在ontimer事件中协商form2.show form1.close
在ontimer事件中协商form2.show form1.close
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-03-13
展开全部
使用Timer控件就可以实现。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询