Temporizador y ToolTip

[ecfisa]

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]

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]

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

[Casimiro Noteví]

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