如何结束她？(50分)

T

toll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-11

• #1

有段代码，如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.enabled:=false;
if date=strtodate('2001-08-11') then
form2.show;
Timer1.enabled:=true;
end;

RUN了以后，
form2总是结束不了，还要加上那一句，才能让from2显示一次就够拉，不要重复显示，
求救，，

 

T

toll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-11

• #2

我着急，

 

Y

yangjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-11

• #3

用form2.showModal命令
在form2的onclose 事件中添加
procedure TFrm_other.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
就可以了

 

J

javis.chi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #4

什么叫结束不了？

楼上的方法会出错的

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.enabled:=false;
if date=strtodate('2001-08-11') then
form2.show;
Timer1.enabled:=true;//你可以把这个语句去掉啊！
end;

 

T

Toylin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #5

时钟一直在走，当然会一直判断了，同意楼上的说法

 

C

chyw123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #6

在时钟第一次到的时候，设置个变量锁定即可！

 

T

toll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-17

• #7

谢谢javis.chi告知,区区30,不成敬意,