F�rum [Delphi]Como criar um temporizador #614580

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

Curtir t�pico

+ 1

Responder

Post mais votado

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;

Gladstone Matos

Responder

Gostei + 1