![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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.
В строку запроса вводим: "переключение раскладки", нажимаем кнопку "Поиск". |