Es ist dieser Scanner:
http://www.ruggedscanners.com/obm-a5...-p00017p1.html
Habe ihn aus China importiert. Das Teil ist sehr ansprechend. Super look and feel. Bin damit sehr zufrieden. Ist mal ein Test für weitere um sie dann für Lagerwirtschaft einzusetzen.
Übrigens habe ich nun eine deutlich einfachere Lösung meines Problems gefunden. Kommt ohne die
unit VirtualKeyboardService aus.
Zuerst setze ich im Projektquelltext wieder
VKAutoShowMode := TVKAutoShowMode.Never;
Dadurch entfällt das umständliche Unsichtbarmachen des Keyboards.
In der Loginmaske setze ich bei den Eingabefeldern das OnEnter wie folgt:
Delphi-Quellcode:
procedure TForm1.Edit1Enter(Sender: TObject);
var
FService: IFMXVirtualKeyboardService;
begin
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
if (FService <> nil) then
begin
FService.ShowVirtualKeyboard(Edit1);
Edit1.SetFocus;
end;
end;
Dadurch wird schon mal die Tastatur erstmalig sichtbar und dadurch wird in weiterer Folge der Scanvorgang erst richtig möglich.
Das OnEnter aller Felder, die kein Keybord benötigen, bzw. wo es nicht angezeigt werden soll, sieht so aus:
Delphi-Quellcode:
procedure TForm1.Edit2Enter(Sender: TObject);
var
FService: IFMXVirtualKeyboardService;
begin
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
if (FService <> nil) then
FService.HideVirtualKeyboard;
TEdit (Sender).Tag := 0;
end;
Jedes dieser Eingabefelder bekommt aber einen Button, über den man das Keyboard anzeigen kann. Eventuell checke ich mal, ob das nicht besser über eine Hardwarteste des Scanners erledigt werden sollte. Dann halt im OnKeUp des Eingabefeldes.
Einstweilen aber mal so:
Delphi-Quellcode:
procedure TForm1.EditButton1Click(Sender: TObject);
var
FService: IFMXVirtualKeyboardService;
begin
Edit2.Tag := abs (Edit2.Tag - 1);
TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
if (FService <> nil) then
begin
if Edit2.Tag = 0 then
FService.ShowVirtualKeyboard(Edit2)
else
FService.HideVirtualKeyboard;
Edit2.SetFocus;
end;
end;
Funktioniert hervorragend so.
Zumindest nach ersten kurzen Tests.