Key

← →
Yanis © (2003-07-25 00:48) [0]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If key=key_q then ListBox1.Items.Add("Q"); end;
Извините за тупой вопрос но как мне реализовать данный код и для русской раскладки, что бы при написании русской буквы в ListBox добавлялась русская буква?
Спасибо.

← →
VD602 (2003-07-25 00:49) [1]

1) Ловить OnKeyPress. Там в качестве аргумента передается символ, а не его номер
3) Chr(key)

← →
Yanis © (2003-07-25 01:02) [2]

А как или где узнать номера русских букв, если не трудно малюсенький примерчик, а то никак не въеду.

← →
default © (2003-07-25 01:19) [3]

if Chr(Key) in ["а".."я"] then // ...

Если правильно понял...
Пуск\программы\Стандартные\служебные\Таблица символов
Узнать можно многое, к примеру:
Alt+1469 равняется = ©

Желаю успехов

Наверное пора спать, ну не получается у меня ну тупо идет.

Key Найти похожие ветки