Delphi-Quellcode:
procedure TfrmSomeWindow.FormVirtualKeyboardShown(
Sender : TObject;
KeyboardVisible : Boolean;
const Bounds : TRect
);
begin
if (KeyboardVisible) then
begin
pnlKeyboard.Height := Bounds.Height;
end else
begin
pnlKeyboard.Height := 1;
end;
end;
Mehr ist das bei mir nicht.
LG Incocnito
Das funktioniert aber nicht oder nur ganz bedinngt...
Was ist wenn Du ein Formular hast das in sich schon scrollt. Oder wenn Du dadurch das eigentliche controll "oben raus" scrollst...
Daher müssen alle controls auf eine Scrollbox und das Control, das den Focus hat, am oberen Rand des sichtbaren Bereiches positioniert werden.
Mavarik