Показать сообщение отдельно
  #2  
Старый 04.01.2009, 21:17
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption = 'EN' then begin
    LoadKeyboardLayout('00000419', KLF_ACTIVATE);
    Button1.Caption := 'RU'
  end else begin
    LoadKeyboardLayout('00000409', KLF_ACTIVATE);
    Button1.Caption := 'EN'
  end;
end;
Какой же это будет Microsoft, если он поделится системной картинкой .
Отграббить надо два изображения из таскбара, которые соответствуют состояниям языков (одного и другого) и менять картинки при переключении. На кнопке или TImage, что больше по душе.

"Задействовала кнопку" - это как? Кнопка на второй форме нажималась что ли?
__________________
Не забывайте делать резервные копии
Ответить с цитированием