Ver Mensaje Individual
  #2  
Antiguo 07-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Artigas72.

Si no entendí mal lo que buscas, podes agregar un componente TTimer (pestaña System) y este código al evento OnTimer del mismo:
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT CURRENT_TIME AS HORA FROM RDB$DATABASE';
    Open;
    if FieldByName('HORA').AsString >= '08:00:00' then
    begin
      ShowMessage('Tiempo cumplido, hacer lo que gustes');
      ...
    end;
    ...
  end;
end;
La cadena SQL para obtener la hora funciona en Firebird, tendrás que reemplazarla por la que corresponda a tu manejador de bd.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita