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:

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

[Rollo62]

Hilft dir das weiter ?

Rollo

[Loko789]

Zitat von Rollo62:

Hilft dir das weiter ?

Rollo

Screenshot_20170803-100518.jpg
Hier der beweis. Die Höhe des VK ist 24. Was kann man dagegen machen bzw gibt es eine andere Alternatve, um die Höhe des VK zu bekommen?

[Uwe Raabe]

Das ist ein bekannter Fehler in Tokyo: FormVirtualKeyboardShown gives wrong bounds

[Loko789]

Zitat von Uwe Raabe:

Das ist ein bekannter Fehler in Tokyo: FormVirtualKeyboardShown gives wrong bounds

Gibt es ein Workaround dafür? Denn auf diese Funktion verzichten kann ich nicht.

[Uwe Raabe]

Zitat von Loko789:

Gibt es ein Workaround dafür?

Keinen offiziellen. Hilft es, wenn du dir die korrekte Höhe aus dem ersten Aufruf merkst?