Danke für die Antwort.
Problem was aber dann besteht ist, wenn der Cursor gerade in einen anderen Editfeld steht, dass dort auch die aktuelle Eingabe vom Scanne auftaucht.
Alle anderen Eingabemöglichkeiten laufend zu sichern um diese dann wieder zu aktualisieren halte ich für nicht so glücklich.
Delphi-Quellcode:
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TForm1 =
class(TForm)
Edit1 : TEdit;
Edit2 : TEdit;
procedure FormKeyPress(Sender: TObject;
var Key: Char);
procedure FormCreate(Sender: TObject);
private
pufferstring :
string;
public
{ Public-Deklarationen }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
pufferstring := '
';
edit1.Text := '
';
edit2.Text := '
';
end;
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13
then
begin
// Verarbeite den Barcode
edit1.Text := pufferstring;
edit1.Repaint;
// Alten Barcode löschen
pufferstring := '
';
end
else pufferstring := pufferstring + key;
end;
end.