vll noch als tipp.... um an ein infos einigermaßen bequem zu kommen...
Delphi-Quellcode:
type TFoobat = class(TWinControl)
localFormatSettings : TFormatSettings;
[...]
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, localFormatSettings);
das ist recht praktisch, wenn es um währungen, dezimal etc geht...
und dazu vll auch noch:
wenn sich etwas wärend der laufzeit ändert wird diese message gefeuert....
Delphi-Quellcode:
procedure WinSettingsChange(var Message: TMessage); message WM_WININICHANGE;
[...]
procedure TSettingsWatchDog.WinSettingsChange(var Message: TMessage);
begin
if message.msg = WM_WININICHANGE then
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, localFormatSettings);
inherited;
end;
cya
Corelgott