Delphi: Android Keyboard that blocks my TEdit

  

I’m building a Mobile App, I have a frame that contains a lot of TEdit, so when comes to the TEdit that is nearby to the bottom page, when I click on the TEdit, the keyboard will block the TEdit which the user cannot see what is their input value. What can I do to avoid this? These are my attempted code:
FYI, in my frame, I arranged all my item into a ListBox1. And the only TEdit that my mobile keyboard blocking is percentage_edit. What Im trying to do here is, when i clicked on the percentage_edit, the keyboard shall be shown below the percentage_edit TEdit box.
procedure TProfileFrame.VirtualKeyboardHidden(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin
ListBox1.Margins.Bottom := 0;
end;

procedure TProfileFrame.VirtualKeyboardShown(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin
ListBox1.Margins.Bottom := Bounds.Height;
if Assigned(percentage_edit) and percentage_edit.IsFocused then ListBox1.ScrollToItem(ListBoxItem12);

end;

Comments are closed.