Tema: objeto timer
Ver Mensaje Individual
  #25  
Antiguo 18-04-2006
Avatar de Sotrono
Sotrono Sotrono is offline
Miembro
 
Registrado: abr 2004
Ubicación: Buenos Aires - Argentina
Posts: 396
Reputación: 23
Sotrono Va por buen camino
Proba de la siguiente manera:

Crea una aplicación nueva, agega un Timer.

En el evento OnTimer pone el siguiente codigo:
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var horita, minutos, segundos, mili : word;
begin
 DecodeTime(Time,horita,minutos,segundos,mili);
 if (horita = 8) and (minutos = 31) then
      begin
      Timer1.Enabled := false;
      ShowMessage('esta vaina funciona');
    end;
end;
Obviamente cambia el 8 y el 31 de la hora y los minutos por los actuales.

En el evento OnCreate del Form pone esto:
Código Delphi [-]
  Timer1.Interval := 1000;
  Timer1.Enabled := true;

Asi tiene que funcionarte.

Última edición por Sotrono fecha: 18-04-2006 a las 01:52:06.
Responder Con Cita