Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отслеживание смены форматов. [D2005]

И. Павел © (2009-04-10 09:18:00)
Отслеживание смены форматов.

Здравствуйте. Глобальные переменные DecimalSeparator, ShortDateFormat и DateSeparator меняются каждый раз при изменении региональных и языковых настроек. Сейчас в программе отслеживаю смену DecimalSeparator, ShortDateFormat и DateSeparator в обработчике OnIdle. Все таки, насколько я понимаю, Idle используется, прежде всего, для отслеживания действий пользователя. Может быть, есть свой собственный способ, позволяющий отследить изменение этих параметров? Конечно, было бы лучше, если имелась возможность запретить менять эти переменные автоматически. Подскажите, пожалуйста, как можно отследить изменение этих переменных или запретить их автоматическую смену?

И. Павел (2009-04-10 11:25:00) [1]

> NieL ©

Спасибо.

NieL (2009-04-10 10:52:00) [2]

> запретить их автоматическую смену?

Можно так:

var FFormatSettings: TFormatSettings; begin GetLocaleFormatSettings(LOCALE_USER_DEFAULT, FFormatSettings); with FFormatSettings do begin DateSeparator := '.'; TimeSeparator := ':'; ShortDateFormat := 'dd.mm.yyyy'; end;

Потом при преобразовании строки указываешь формат, вот так:
dt := StrToDateTime('01.01.2009', FFormatSettings);

И. Павел (2009-04-10 10:27:00) [3]
Спасибо.

Сейчас я так и делаю:
procedure TMainForm.Idle(Sender:TObject; var Done:Boolean);
Begin
if DecimalSeparator<>'.' then DecimalSeparator:='.';
if DateSeparator<>'.' then DateSeparator:='.';
if ShortDateFormat<>'dd.mm.yyyy' then ShortDateFormat:='dd.mm.yyyy';
end;

Просто искал более рациональный способ, и все-таки нашел:

Application.UpdateFormatSettings := False;

oldman (2009-04-10 09:41:00) [4]
Постоянно сравнивать прошлый запомненный тобой с нынешним системным...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »