delphi倒计时按钮写法

Posted 2020-08-24

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;作用是：解决优先显示按钮次序，不加的情况会由于这个倒计时按钮代码加载延误其他界面组件按钮图标的显示，加上后会优先显示除了这个按钮外的其他图标对象，其次再显示这个图标处理事件，让界面显得不卡慢。