各位大侠请进来看看!(50分)

D

djks

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #1

各位大侠，我的想法是这样：
　　当label4.Caption :='快完成了............'; 然后form2.ShowModal;
我是这样做的，但总是出错，希望各位大侠帮忙修改：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label4.Caption :='快完成了............';
sleep(1100);
form1.hide;
form2.ShowModal;
form1.close;
end;

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #2

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label4.Caption :='快完成了............';
APPLICATION.ProcessMessages;
sleep(1100);
form1.hide;
form2.ShowModal;
form1.close;
end;

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #3

不好意思，少了一句！
procedure TForm1.Timer1Timer(Sender: TObject);
begin
TIMER1.Enabled :=FALSE;
label4.Caption :='快完成了............';
APPLICATION.ProcessMessages;
sleep(1100);
form1.hide;
form2.ShowModal;
form1.close;
end;

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #4

说说你什么问题呀？出什么错？
既然用timer控件来触发完成后应该将timer1.enable:=false;
timer1.Enabled:=false;
label1.Caption :='快完成了............';
sleep(1100);
form1.hide;
form2.ShowModal;
form1.close;

 

D

djks

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #5

Thank you!