Modificar hora en tiempo de ejecución

[Lizeth]

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

[ecfisa]

Hola Lizeth.

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

Un saludo.

[Lizeth]

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.

[Lizeth]

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

[ecfisa]

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.

[Lizeth]

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.

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