Timer控件简单问题(高分求解)
varprocedure TFrm_Pop.Timer1Timer(Sender: TObject);
var
Bl_1,Bl_3,CBl_1,CBl_3:integer;
begin
label5.Caption:=inttostr(Bl_1-Bl_2);
Bl_6:=Bl_1-Bl_2
if Bl_6=0 then timer1.enabled:=false
showmessage('测试')
label6.Caption:=inttostr(Bl_6);
Bl_4:=Bl_4+1;
end
if Bl_6=0 then timer1.enabled:=false
这段运行好后 如果 Bl_6=0 那么timer1就停 但是 后面showmessage('测试')还是显示出来了 说明还在运行，我的意思就是下面的不在运行
[解决办法]
varprocedure TFrm_Pop.Timer1Timer(Sender: TObject);
var
Bl_1,Bl_3,CBl_1,CBl_3:integer;
begin
label5.Caption:=inttostr(Bl_1-Bl_2);
Bl_6:=Bl_1-Bl_2;
if Bl_6=0 then
begin
timer1.enabled:=false;
exit;//后面只要加上这个exit后面的就不再运行了
end;
showmessage( '测试 ') ;
label6.Caption:=inttostr(Bl_6);
Bl_4:=Bl_4+1;
end
给你改好了，可以结贴了
