Цитата:
|
Сообщение от cadil
Хотелось бы сделать так, чтобы
Код:
Label1.Caption := 'Русский';
Label1.Caption := 'Английский'; менялись не только в активном, но и ПАССИВНОМ состоянии программы.
Спасибо! |
Согласен, не работает этот способ для фонового окна. Пока тут проводил эксперементы доперло, что можно еще проще это делать, вообще без обработки сообщений:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
Var CurrentLayout: HKL;
begin
CurrentLayout := GetKeyboardLayout(0);
if CurrentLayout = Rus then Label1.Caption := 'Русский';
if CurrentLayout = Eng then Label1.Caption := 'Английский';
end;
Но вот только это не решает изначальную задачу. Будучи фоновым окном, данный код перестает правильно работать, а вот таймер при этом исправно работает и в фоне.
А вот почему это происходит я что-то не догоняю.