Hmm..
Packe Dir mal nen Memo neben das Edit und schreib im OnKeyDown den HexWert des Keys ins Memo, somit solltest Du alle Zeichen erhalten und kannst erkennen, was der Scanner schickt...
Eventuell statt OnKeyDown das OnKeyPress verwenden...
Hast du ein bsp dafür ich häng an dem selben Problem, ich versuch per OnKeyPress den Char #29 gegen ↔ zu tauschen funtkioniert damit zwar recht gut.
Aber wie kann ich das weiterverarbeiten ^^ für ein bsp wäre ich dankbar, zbsp wie ich den geänderten Text in einen sring packe.
mit var test: string;
test := Edit1.text will er nicht ganza machen damit ichs weiter verarbeiten kann bzw kann folgende Procedure in eine Function geändert werden? Hab es nicht wirklich hinbekommen.
Code:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Sender is TEdit then begin
case Key of #29:
begin
TEdit(Sender).SelText := '↔';
end;
end;
end;
end;