Bei mir funktioniert das Bounds.Height auf allen Platformen, inclusive Windows.
Nur Mc hat keine VK implementiert.
Delphi-Quellcode:
procedure TPlan_VMdl.EvOnVirtualKeyboardShown(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin
TToolPanel.SendMessage(TToolPanel.TApi.VirtualKeyboard_Height, Bounds.Height);
...
...
...
Rollo