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;

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