Delphi 10.2 Firemonkey: VirtualKeyboard höhe

**Loko789**

Hallo an alle,

ich stehe vor folgendem Problem. Ich möchte, wenn das VK gezeigt wird die Höhe von diesem haben. Gelöst habe ich es wie folgt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormVirtualKeyboardShown(Sender: TObject;

  KeyboardVisible: Boolean; const Bounds: TRect);

begin

   VertScrollBox1.Margins.Bottom := Bounds.Height;

end;

procedure TForm1.FormVirtualKeyboardHidden(Sender: TObject;

  KeyboardVisible: Boolean; const Bounds: TRect);

begin

  VertScrollBox1.Margins.Bottom := 0;

end;

Dies funktioniert auch ohne Probleme beim ersten Mal(Höhe beträgt etwa 340px). Ab dann, wenn sich das VKShow Event erneut ausführt, beträgt die Höhe nur noch 24.
Dies ist auf allen Android-Geräten zurückzuverfolgen.

Kann mir einer weiterhelfen?
Danke

Gruß
Loko

Delphi 10.2 Firemonkey: VirtualKeyboard höhe

Delphi 10.2 Firemonkey: VirtualKeyboard höhe

Forumregeln