Modificar hora en tiempo de ejecución
 

Hola, quiero hacer algo como el reloj de windows, que le doy clic a la hora y me abre un reloj y un edit que puedo modificar manualmente o con las flechitas para incrementar las horas, minutos o segundos y que siga corriendo, con los nuevos datos que introduje.

Hay algun componente gratis? o alguien ya hizo algo por el estilo?

La otra si no hay nada bueno tendre que limitarme y hacerlo mas sencillo ja pero claro para mi no es tan sencillo. Poner un DateTimePicker con la hora, minutos y segundo del sistema. Si el usuario cambia la hora, minuto o segundo al hacer el onChange o el onExit, en un Edit que aparezca la hora que el usuario seleccciono pero que empiece a correr el tiempo.

Ya tengo algo como esto pero mi timer no avanza se queda con la hora fija del DateTimePicker, no se como asignarle la nueva hora y que avance a partir de la hora que yo le digo porque si pongo

Código Delphi [-]
 
Edit1.Text := timetostr(Time);

con un intervalo de 1000 obvio me da la hora de mi maquina y yo quiero que lo haga para la hora que el usuario selecciono en el datetimepicker.

Gracias

Hola Lizeth.

¿ Queres que se ajuste y modifique la hora del S.O. o que el reloj sea independiente de él ?

Un saludo.

Gracias

Pues mira quiero modificar la hora del S.O creo. Porque yo les presento la hora del sistema pero si quieren adelantar o atras la hora lo pueden hacer.

mm corrigiendo, de entrada si presento la hora del sistema pero si ellos modifican la hora adelantan o atrasan la hora del sistema debe de seguir igual, solo cambia lo que hay en el DateTimePicker

Gracias

Hola Lizeth.

No conozco algún componente de tercero como para indicarte, pero con un TDateTimePicker podes hacer:

Código Delphi [-]
...

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Kind:= dtkTime;
  DateTimePicker1.Time:= Now;
  Timer1.Interval:= 1000;
  Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DateTimePicker1.Time:= IncSecond(DateTimePicker1.Time, 1);
end;
...

Saludos.

Waaaaaaaaaaaaaaaaaaaaaaaauuuuuuuw wawisimo, jajajaj bien dice mi jefe si algo se complica es que esta mal. No puedo creerlo pase varias veces por el IncSecond y no me salio.:o

Gracias gracias graaaaacias ecfisa de verdad a parte lo hiciste tan simple.:p