Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Temporizador y ToolTip (https://www.clubdelphi.com/foros/showthread.php?t=87152)

danny915 21-11-2014 00:54:17

Temporizador y ToolTip
 
Hola a todos antes que nada revise los tutoriales y medio entendi por eso pongo este tema

Tengo que hacer una aplicacion y tengo que hacer que se cierre luego de un 1 min de haber iniciado
solo se cancela si le das click en un botón y ya no se cierra no tengo idea de como hacerlo solo me imagino que es en el onactive del form pero no se mas

y la otra como hacer para que cuando ponga el cursor sobre un botón salga una etiqueta que diga algo con una informacion sobre su titulo o algo asi ya que es una imagen

Solo es eso mas que todo me interesa la primera opcion

gracias al que pueda ayudarme

ecfisa 21-11-2014 01:38:31

Hola danny915 y bienvenido a Club Delphi :)

Como a todos los que se inician te invitamos a leer nuestra Guía de estilo.

Código Delphi [-]
...
var
  TimeRemaining: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:= 1000; // 1 seg;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TimeRemaining = 60 then Application.Terminate;
  Inc(TimeRemaining);
  Caption:= IntToStr(TimeRemaining);
end;

procedure TForm1.btnAbortClick(Sender: TObject);
begin
  Timer1.Enabled:= False;
end;

Cuando tengas dos consultas para realizar crea dos hilos diferentes, uno para cada una de ellas ;)

Saludos :)

danny915 21-11-2014 02:14:49

Gracias
 
Gracias por tu ayuda ecfisa me has ayudado mucho

tendre en cuenta para proximos temas lo que me dijsites, estoy revisando la guia de estilo para no tener estos inconvenientes

VicenteLuna 25-10-2017 14:29:18

pero como puedo hacer para que la cuenta regresiva se vea en un Label

Casimiro Notevi 25-10-2017 14:57:22

Código Delphi [-]
Label1.Caption:= IntToStr(TimeRemaining);


La franja horaria es GMT +2. Ahora son las 03:28:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi