|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
переключение языков
Как мне на форму вывести переключение языков(RU-EN) xnj чтобы выводилась системная картинка!
ps как при нажатие кнопки на 1 форме, что бы одна задействовала кнопку на 2 форме Последний раз редактировалось жекаизжека, 04.01.2009 в 19:46. |
#2
|
|||
|
|||
Код:
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; Отграббить надо два изображения из таскбара, которые соответствуют состояниям языков (одного и другого) и менять картинки при переключении. На кнопке или TImage, что больше по душе. "Задействовала кнопку" - это как? Кнопка на второй форме нажималась что ли? Не забывайте делать резервные копии |
#3
|
|||
|
|||
а вот что бы по сочетанию клавишь, которые настроены в Виндоусе
|
#4
|
|||
|
|||
Заходим на страницу http://www.delphikingdom.com/table/search.asp.
В строку запроса вводим: "переключение раскладки", нажимаем кнопку "Поиск". Не забывайте делать резервные копии |