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.
Pingback: Ten Tips For Creating Professional Android Apps With Delphi XE5 Firemonkey | Delphi XE5 Firemonkey, Delphi Android, Delphi IOS
Pingback: Polish Your Firemonkey Apps For IOS With These Twelve Tips | Firemonkey X
Pingback: Ten Tips For Building Stunning Professional Android Apps With Delphi XE7 Firemonkey | Delphi XE5 XE6 XE7 Firemonkey, Delphi Android, Delphi IOS
Pingback: Ten Tips For Building Professional Multi Platform Enterprise Apps With Delphi XE8 Firemonkey | Delphi XE5 XE6 XE7 XE8 Firemonkey, Delphi Android, Delphi IOS
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;
Pingback: Keep Controls Visible When Virtual Keyboard Opens In Delphi XE8 Firemonkey On Android | Delphi XE5 XE6 XE7 XE8 Firemonkey, Delphi Android, Delphi IOS
Pingback: [mobile OS] Virtuelle Tastatur verdeckt Controls - Delphi-PRAXiS
Pingback: Keep Controls Visible When Virtual Keyboard Pops Up In Delphi 10.2 Tokyo On Android And IOS | Delphi XE5 XE6 XE7 XE8 10 Seattle Berlin Tokyo Firemonkey, Delphi Android, Delphi IOS