Например:
Префикса е Ctrl+F4.
Полето, където трябва да получим прочетеното от баркода е Edit1

Във формата:
KeyPreview := True;
OnKeyDown := FormKeyDown;
Edit1.OnChange := Edit1Change;

метода за получаване на фокуса:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_F4: // ако е F4
if ssCtrl in Shift then begin // ако е натиснат Ctrl
Edit1.SetFocus;
end;
end;
end;


метода, обработващ "Дойде информация от баркода"
procedure TForm1.Edit1Change(Sender: TObject);
begin
showmessage(Edit1.Text);
end;


__________
Enjoy

Съдържаниет е скрито
Влезте за да го видите