Virtual Keyboard

[artelogic]

Hallo!

Gibt es eine Virtual-Keyboard-Komponente für Lazarus? Sollte auch unter Raspian laufen.

Danke
Christian

[Socke]

Hallo Christian,

herzlich willkommen im Forum!

Mir ist keine fertige Komponente dafür bekannt und hatte vor einiger Zeit mich selbst auch in Hinblick auf Raspbian daran versucht. Ich kann heute abend mal schauen, ob ich das noch habe. Unter fertig wäre das aber auch nicht zu verstehen.

[af0815]

Schau dir mal das an, ist eine Tastatur. Der Code ist aus einem älteren Projekt, daher ein Änderung weiter unten, falls es Probleme gibt. Da sind im Laufe der Zeit ein paar Sachen angepasst worden.

Kann sein, das man da was anpassen muss für den RasPi bzw. Win32 und Win64. Ich habe den Code woanders folgend angepasst.

Code: Alles auswählen

  TInput = class(TForm)
    .....
    {$IfDef CPU64}
    procedure PressVirtKey(p: int64);
    {$Else}
    procedure PressVirtKey(p: LongInt);
    {$EndIf}

........

{$IfDef CPUARM}
procedure TForm1.PressVirtKey(p: LongInt);
{$Else}
procedure TForm1.PressVirtKey({$IfDef WIN32}p: LongInt{$Else} p: Int64 {$EndIf});
{$EndIf}

[Socke]

Siehe Anhang. Viel Spaß beim weiterentwickeln!

[artelogic]

Auf jeden Fall schon mal Danke!

C'