На Английский клавиатуре что писал на Русском

[xxbesoxx]

Здравствуйте ребята . Хочу реализовать в программу такой принцип работы.
Если клавиатура переключен на "Английский язык" то в Edit1 или Memo1 все равно писал на "Русском языке"
Начинаю это задачу решать так

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   case key of
    'a': Key:= 'Ф';
    'A': Key:= 'ф';
    'b': Key:= 'и';
    'B': Key:= 'И';
    'c': Key:= 'с';
    'C': Key:= 'С';
    'd': Key:= 'в';
    'D': Key:= 'В';
    ..................
    ..................
    ..................
   end;
end;

end.

Это метод работает да ... Но, Я не хочу это код копировать на все форме и на все Edit из события OnKeyPress !
Хочу объявит процедур разделе public { Public declarations } и потом где это будет нужно что я мог вызвать . Но не получается ! Почему то это код работает только из OnKeyPress...

Начинаю объявит

  public
     procedure KeyRuss;  // Наживаю Ctrl+Shift+C

В шаблоне вставляю это код !

procedure TForm1.KeyRuss;
begin
   case key of
    'a': Key:= 'Ф';
    'A': Key:= 'ф';
    'b': Key:= 'и';
    'B': Key:= 'И';
    'c': Key:= 'с';
    'C': Key:= 'С';
    'd': Key:= 'в';
    'D': Key:= 'В';
   end;
end;

Но проект не компилируется ...
Вопрос: Как это задача решать нормально что не было продублированы код на все Edit

[Arigato]

И что за key у вас внутри процедуры? Надо же его передать туда:

procedure TForm1.KeyRuss(var Key: Char);

Сообщение от xxbesoxx

Как это задача решать нормально что не было продублированы код на все Edit

Прописать для всех Edit'ов обработчик события Edit1KeyPress.

[xxbesoxx]

Если прописать то да РАБОТАЕТ . Но, Я не хочу это код продублировать на все форму и на все Edit .... Хочу создать ПОДПРОГРАММА и где его нужно, потом вызвать ! ВОПРОС В ТОМ ЧТО ! КАК ЭТО РЕАЛИЗОВАТЬ

Delphi это не HTML что дублировать одно и тот же теги .... Это же ООП " Объектно-ориентированное программирование"

[Пепел Феникса]

Сообщение от xxbesoxx

Delphi это не HTML что дублировать одно и тот же теги .... Это же ООП " Объектно-ориентированное программирование"

вам и говорят назначить один и тот же обработчик везде.

[xxbesoxx]

Пепел Феникса Я прошу прошения . МОЖНО МАЛЕНЬКИЙ ПРИМЕР НАБРОСАТЬ ДЛЯ ИЛЛЮСТРАЦИЮ ?

[Человек_Борща]

ТС - все проще. Когда MEMO получает фокус, ставите русский. Когда фокус теряется, ставите предыдущий язык.

На OnMouseEnter запоминаете предыдущий язык с пом. GetKeyboardLayout,
Устанавливаете свой с пом. ниже написанной функции(код с инетов, не проверял)

procedure SetKeyboardLayout(const primary LangID, subLangID: Word);
var
layout: array[0.. KL_NAMELENGTH] of char;
d: word;
s: string;
begin
d:= (subLangID shl 10) or primaryLangID or (Longint(0) shl 16);
s:= IntToHex(d,8);
//Вызов функции Windows API для смены языка
LoadKeyboardLayout(StrCopy(Layout,P Char (s)),KLF_ACTIVATE);
end;

К Примеру:

SetKeyboardLayout(LANG_RUSSIAN,SUBLANG_DEFAULT)

В OnMouseLeave ставите ранее упомянутую кодировку. Все.

[xxbesoxx]

Человек_Борща Это стадия написано да .... мне его не нравится ... Мне не надо переключить языка Мне надо тот метод который

#1

или вот это

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
Const
   Lat = '~@#$^&QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`qwertyuiop[]asdfghjkl;''\zxcvbnm,./';
   Cyr = 'Ё"№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ёйцукенгшщзхъфывапролджэ\ячсмитьбю.';
var
  i: Integer;
begin
   for i := 1 to Length(Lat)
   do if Key=Lat[i] then Key := Cyr[i];
end;


end.

МНЕ НАДО ЭТО КОД РЕАЛИЗОВАТЬ В ПОДПРОГРАММУ И ВЫЗВАТЬ ЕГО ГДЕ МНЕ НУЖНО ... А так спасибо за ваши предложение ! Но мне не надо не какой переключить языка

[Arigato]

Да он у вас и так в подпрограмме уже, вызывайте, где хотите.

[xxbesoxx]

Мой Вопрос и Просьба Если можно как описать это код процедуру ? Что потом я вызвал его ГДЕ МНЕ НУЖНО

Сообщение от Arigato

Да он у вас и так в подпрограмме уже, вызывайте, где хотите.

Arigato Повторяю........ мне надо это код объявить разделе

  public
    { Public declarations }

Понимайте ? И потом вызвать из любой форму ГДЕ МНЕ ЕГО НУЖНО ...

[Arigato]

Так это все и сейчас будет работать.