Delphi 10.2 - Scrollable Form Demo geht nicht

[erich.wanker]

ups.. hab jetzt schnell ein showmessage eingebaut .. und das wird ausgeführt .. also doch nix mit "OnVirtualKeyboardShown Broken in Tokyo "


.. und ich hab das Projekt1 nun noch mal mit Delphi 10.1 kompiliert ... und da passt alles .. der Bildschirm scrollt so weit hoch bis das Edit schön sichtbar ist ... komisch ist nur das das "showmessage" anscheinend 2 x ausgeführt wird .. ich muß es in der 10.1 compilierten Version 2 mal wegklicken..

Delphi-Quellcode:

procedure TForm1.FormVirtualKeyboardShown(Sender: TObject;
  KeyboardVisible: Boolean; const Bounds: TRect);
begin
showmessage('Einblenden');

  FKBBounds := TRectF.Create(Bounds);
  FKBBounds.TopLeft := ScreenToClient(FKBBounds.TopLeft);
  FKBBounds.BottomRight := ScreenToClient(FKBBounds.BottomRight);
  UpdateKBBounds;
end;