Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Вниз

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 // ...

---

← →
Rouse_   (2003-07-25 01:22) [4]

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

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

---

← →
Yanis   (2003-07-25 01:35) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c