delphi倒计时按钮写法

时间：2016-12-22 13:44:02 阅读：251 评论：0 收藏：0 [点我收藏+]

标签：process btn str 代码显示 app 按钮图标写法 color

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倒计时按钮写法

标签：process btn str 代码显示 app 按钮图标写法 color

原文地址：http://www.cnblogs.com/chuangyiyuan/p/6210516.html

踩

(0)

评论一句话评论（0）