首页 > 代码库 > delphi倒计时按钮写法
delphi倒计时按钮写法
procedure TForm1.FormActivate(Sender: TObject);var i: Integer;begin btn8.Enabled:=False; for I := 5 downto 0 do begin Sleep(1000); btn8.Caption := Format(‘请认真查看(%d)‘, [I]); //ShowMessage(IntToStr(i)); if I = 0 then btn8.Enabled:=True; Application.ProcessMessages; end;end;
Application.ProcessMessages;作用是:解决优先显示按钮次序,不加的情况会由于这个倒计时按钮代码加载延误其他界面组件按钮图标的显示,加上后会优先显示除了这个按钮外的其他图标对象,其次再显示这个图标处理事件,让界面显得不卡慢。
delphi倒计时按钮写法
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。