[Delphi]Como criar um temporizador

17/03/2021

0

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

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

Gladstone Matos
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar