If you’re building any kind of Delphi XE5 Firemonkey mobile app that has input controls you have probably run into the problem of the virtual keyboard hiding the edit controls underneath itself. There are a few different solutions to this problem but some of the best ones support the multiline TMemo as well. I believe all of the solutions work cross platform in Delphi XE5 Firemonkey for Android and IOS. You can find two solutions from David Nottage and Mike Sutton in this Embarcadero forum post from September 2013. David Nottage also wrote a blog post about his solution which comes with demo source code. David’s solution has been put into a component called TControlMover you can easily add to any of your projects. Here is a sample from his component:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
procedure TControlMover.FormVirtualKeyboardHidden(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect); begin FVKVisible := False; if Assigned(FSaveProps.Control) then begin FSaveProps.Control.AnimateFloat('Position.Y', FSaveProps.Position.Y, 0.1); FSaveProps.Control.Align := FSaveProps.Align; end; end; procedure TControlMover.FormVirtualKeyboardShown(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect); begin FVKVisible := True; FVKBounds := Bounds; if FocusedControl = nil then Exit; DoGetMoveControl; if Assigned(FSaveProps.Control) then begin FSaveProps.Control.Align := TAlignLayout.alNone; FSaveProps.Position.Y := FSaveProps.Control.Position.Y; SlideControl; end; end; |
There is a problem on IOS where the Bounds rectangle is reported incorrectly when in landscape mode. You can get the correct bounds rectangle using code found on this QC entry. Lastly, there is a ScrollableForm demo available from Embarcadero. Here is a sample of the source from the ScrollableForm demo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
procedure TFormMain.FormVirtualKeyboardHidden(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect); begin FKBBounds.Create(0, 0, 0, 0); FNeedOffset := False; RestorePosition; end; procedure TFormMain.FormVirtualKeyboardShown(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect); begin FKBBounds := TRectF.Create(Bounds); FKBBounds.TopLeft := ScreenToClient(FKBBounds.TopLeft); FKBBounds.BottomRight := ScreenToClient(FKBBounds.BottomRight); UpdateKBBounds; end; |
Head over and get the full source to the TControlMover component and demo.
I have some problems with the “ScrollableForm demo” on a form with TStatusBar.
Now i am using a simple methode:
– Set StatusBar.Height to Keyboard-Height
– Scroll to Edit
procedure TFormMain.FormVirtualKeyboardShown(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect);
var LItem: TListBoxItem;
begin
LItem := MyFindSelectedListBoxItem;
if Assigned(LItem) then
begin
StatusBarMain.Height := Bounds.Height;
if MyGetListBoxOfItem(LItem) is TListBox then
with MyGetListBoxOfItem(LItem) as TListBox do
begin
FViewportPosition := ViewportPosition;
ScrollToItem(LItem);
end;
end;
end;
procedure TFormOmAppMain.FormVirtualKeyboardHidden(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect);
begin
StatusBarMain.Height := 22;
ListBoxXX.ViewportPosition := FViewportPosition;
end;