[Delphi]Como criar um temporizador

Delphi

17/03/2021

Quero por em um button quando pressionado ele abre um cronometro nele mesmo em ordem decrescente e só pode pressionado novamente quando esse tempo acabar como que faço ?
Otávio Ponciano

Otávio Ponciano

Curtidas 1

Melhor post

Gladstone Matos

Gladstone Matos

18/03/2021

olá Otavio bom dia, segue abaixo o codigo para essa implementação:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cronometro:integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  cronometro := cronometro - 1;
  button1.caption := inttostr(cronometro);

  if (cronometro <=0) then begin
      timer1.enabled := false;
      showMessage('Cronometro finalizado');
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  timer1.enabled := true;
  cronometro := 10;
end;
GOSTEI 1
POSTAR