在应用程序启动时覆盖区域设置

debugcn 发表于 Dev

马克·古洛特

我想强制我的应用程序始终使用西班牙区域设置，并使用FormatSettings全局变量，但是该应用程序将忽略这些设置。你知道我错过了吗？

program TestProject;

uses
  Vcl.Forms,
  SysUtils,
  Rutinas in 'Rutinas.pas',
  Conexion in 'Conexion.pas' {dmConexion: TDataModule},
  MainForm in 'MainForm.pas' {frmMainForm};

{$R *.res}

begin
  Application.Initialize;

  FormatSettings := TFormatSettings.Create('es-ES');

  Application.MainFormOnTaskbar := True;
  Application.Title := Application_Name;
  Application.CreateForm(TdmConexion, dmConexion);
  Application.CreateForm(TfrmMainForm, frmMainForm);
  Application.Run;
end.

谢谢。

PS：我知道不建议使用FormatSettings，因为它不是线程安全的，但在这里应该不成问题，因为我只在应用程序启动时对其进行过一次更改，而在其他任何需要自定义转换的情况下，则使用本地TFormatSettings变量。

马克·古洛特

抱歉，问题不在Delphi中，而在我用来显示数据的DevExpress控件中。

DevExpress使用自己的格式设置：https : //www.devexpress.com/Support/Center/Question/Details/A517/how-to-use-custom-formats-for-editors

现在这可以正常工作：

program TestProject;

uses
  Vcl.Forms,
  SysUtils,
  cxFormats,
  Rutinas in 'Rutinas.pas',
  Conexion in 'Conexion.pas' {dmConexion: TDataModule},
  MainForm in 'MainForm.pas' {frmMainForm};

{$R *.res}

begin
  Application.Initialize;

  FormatSettings := TFormatSettings.Create('es-ES');
  Application.UpdateFormatSettings := False;
  cxFormatController.BeginUpdate;
  cxFormatController.UseDelphiDateTimeFormats := True;
  cxFormatController.EndUpdate;
  cxFormatController.GetFormats;
  cxFormatController.NotifyListeners;

  Application.MainFormOnTaskbar := True;
  Application.Title := Application_Name;
  Application.CreateForm(TdmConexion, dmConexion);
  Application.CreateForm(TfrmMainForm, frmMainForm);
  Application.Run;
end.

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。