Hi,
Code lässt sich geringfügig kürzen:
Delphi-Quellcode:
case msg.wParam of
13: Memo1.Lines.Add('<Enter>');
32: Memo1.Lines.Add('<Spacebar>');
// Funktionstasten
112..123: Memo1.Lines.Add(format('<Function Key "F%d">',[msg.wParam - 111]));
VK_BACK: Memo1.Lines.Add('<Backspace>');
else
Memo1.Lines.Add(Chr(Msg.wParam));
end;
Cu, Frank