Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.943 c