Hallo,
leider bin ich bei diesem Problem noch nicht wirklich weiter gekommen.
Bislang kann ich immer nur ein einziges Zeichen 'abfangen'.
Hier ein Auszug aus dem Code (Codeschnipsel aus diesem Forum, gekürzt):
Delphi-Quellcode:
function TForm1.GetKey(Key: Word): String;
begin
case Key of
VK_NUMPAD6 : Result := 'VK_NUMPAD6';
VK_NUMPAD7 : Result := 'VK_NUMPAD7';
VK_NUMPAD8 : Result := 'VK_NUMPAD8';
VK_NUMPAD9 : Result := 'VK_NUMPAD9';
VK_MULTIPLY : Result := 'VK_MULTIPLY';
VK_ADD : Result := 'VK_VKADD';
VK_SEPARATOR : Result := 'VK_SEPARATOR';
VK_SUBTRACT : Result := 'VK_SUBTRACT';
VK_DECIMAL : Result := 'VK_DECIMAL';
VK_divIDE : Result := 'VK_divIDE';
else
Result := 'Zeichentaste: '+ Chr(Key);
end;
end;
Delphi-Quellcode:
procedure TForm1.ListBoxKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var Zeichen: string;
begin
Zeichen:=GetKey(Key);
Form1.Memo.Text:=Zeichen;
end;
Damit bekomme ich aber immer nur ein einzelnes Zeichen. Ich möchte die ersten vier bis fünf Zeichen abfangen, nacheinander in einen String schreiben und dann den so erzeugten String mit dem Eintrag in der Listbox abgleichen.
Kann jemand helfen?
Danke und Gruß,
Christoph