Einzelnen Beitrag anzeigen

Loko789

Registriert seit: 23. Sep 2015
74 Beiträge
 
#1

Delphi 10.2 Firemonkey: VirtualKeyboard höhe

  Alt 2. Aug 2017, 11:03
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
  Mit Zitat antworten Zitat