[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
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
Clique aqui para fazer login e interagir na Comunidade :)