Modificar hora en tiempo de ejecución

[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.