[JerS]

Empezado por ecfisa

Hola JerS.

Probé este código en W7 y funciona:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  Caption:= TimeToStr(Now)
end;

procedure TForm1.btn24HrsClick(Sender: TObject);
begin
  SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'HH:mm:ss')
end;

procedure TForm1.btn12HrsClick(Sender: TObject);
begin
  SetLocaleInfo(GetSystemDefaultLCID, LOCALE_STIMEFORMAT, 'hh:mm:ss')
end;

Pero para que la aplicación perciba el cambio hay que salir de ella y volver a entrar.

Saludos.

Gracias ecfisa excelente! muchas gracias