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

Вниз

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

← →
Volume ©   (2005-05-20 22:50) [0]

Как узнать и занести (вместо вопроса) имя нажатой клавиши?

procedure TForm2.Edit1Change(Sender: TObject);
begin
Form1.RichEdit1.Lines.Add(" Key (?): " +TimeToStr(Time));
end;

---

← →
Sergey Masloff   (2005-05-20 22:52) [1]

if Sender is TButton then
 ...TButton(Sender).Name

---

← →
ancot   (2005-05-20 23:08) [2]

Если нужен символ изображеный на клавише обрабатывай TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Form1.RichEdit1.Lines.Add(" Key " + Key + " : " +TimeToStr(Time));
end;

---

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

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

Наверх

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