zeichen in einem string speichern

[DGL-luke]

ähm... du solltest dir mal die virtual key-codes zur gemüte führen. Am besten erstellst du dann ein Lookup-array, in etwa so:

const virtualKeys = array[1..$FE] of string = ('LEFT_MOUSE','RIGHT_MOUSE','CANCEL',......) dann kannst dus so machen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var ez: string;
begin
ez := 'VK#' + inttostr(Key) + '=' + virtualKeys[Key];
// Ausgabe bei Key = 1:
// 'VK#1=LEFT_MOUSE'
end;