delphi中这一过程中的Timer4.Enabled :=False ;无效,是什么原因?
procedureTForm4.Timer9Timer(Sender:TObject);beginTimer9.Enabled:=False;ifnot(Edit17.t...
procedure TForm4.Timer9Timer(Sender: TObject);
begin
Timer9.Enabled:=False ;
if not(Edit17 .text='') then
begin
if not( Edit17.Text=Edit8.Text) then
begin
Timer4.Enabled :=False ;////此处无效
ShowMessage ('下载数据不同,须重启软件才能下载!');/////此处正常
Application.Terminate; ///////此处正常
winexec(Pchar(paramstr(0)), sw_show);//////此处正常
end;
end;
end; 展开
begin
Timer9.Enabled:=False ;
if not(Edit17 .text='') then
begin
if not( Edit17.Text=Edit8.Text) then
begin
Timer4.Enabled :=False ;////此处无效
ShowMessage ('下载数据不同,须重启软件才能下载!');/////此处正常
Application.Terminate; ///////此处正常
winexec(Pchar(paramstr(0)), sw_show);//////此处正常
end;
end;
end; 展开
4个回答
展开全部
代码是没有问题,你说的无效是指不起作用还是不能运行到这里?指定False后Timer4还在工作?
追问
是的。Timer4指定False后Timer4还在工作。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看起来没问题 把错误信息贴出来看看
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
会不会是Timer9.Enabled:=False引起的?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询