W wohoot Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-18 #1 那位朋友的方法我试了，错我提示太多，没有成功，分我还是给了，我是新手啊 我的问题是：船体form1在经过10妙后自动跳到form2,并且form1自动关闭，请大虾给出详细方法和解释。
M Mike1234567890 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-18 #2 这个问题很初级啊 最简单的方法就是使用定时器 在Form1中加入一个定时器 设置产生事件的间隔是10秒 然在定时器事件中首先关闭定时器 然后显示Form2 注意不要使用模态显示 然后将Form1隐藏 就搞定了 不会出错
这个问题很初级啊 最简单的方法就是使用定时器 在Form1中加入一个定时器 设置产生事件的间隔是10秒 然在定时器事件中首先关闭定时器 然后显示Form2 注意不要使用模态显示 然后将Form1隐藏 就搞定了 不会出错
D dcsdcs Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-18 #4 program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} var tmpf:Tform1; begin Application.Initialize; tmpf:=Tform1.create(application); tmpf.show; sleep(10000);//10秒 Application.CreateForm(TForm2, Form2); tmpf.free; Application.Run; end.
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} var tmpf:Tform1; begin Application.Initialize; tmpf:=Tform1.create(application); tmpf.show; sleep(10000);//10秒 Application.CreateForm(TForm2, Form2); tmpf.free; Application.Run; end.
