| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Замена кода нажатой клавишы. [D6, Win95/98, WinXP]

Shadow ©   (2002-10-09 14:26:00) 

Т.е. Например: Вы нажали клавишу "г", а отображается она как "ы"

---

TTCustomDelphiMaster   (2002-10-10 21:01:00) [1]

Перепаять клавиатуру или переделать все шрифты

---

Shadow   (2002-10-10 19:48:00) [2]

эм.. Воощето я имел ввиду смену кода в ЛЮБОЙ программе. Как можно это сделать БЕЗ хуков?

---

AngeL B.   (2002-10-09 14:41:00) [3]

> procedure Tf.gKeyPress(Sender: TObject; var Key: Char);
> begin
> if( Key="г")then Key := "ы";


Ну, предположим, тогда уж так

n := pos(Key, SourceTable);
if n > 0 then Key := DestTable[n];


+ если это делается не в одном компоненте, а на всей форме, то включить KeyPreview у формы и производить обработку там.

---

Zz_   (2002-10-09 14:33:00) [4]

procedure Tf.gKeyPress(Sender: TObject; var Key: Char);
begin
if( Key="г")then Key := "ы";

---

Song   (2002-10-09 14:29:00) [5]

В каком компоненте?

---

Наверх