Nesnelerin klavyenin altında kalması

  MyForm.AddNewEvent(MyForm,tbeOnVirtualKeyboardShown,'VKeyboardShown');
  MyForm.AddNewEvent(MyForm,tbeOnVirtualKeyboardHidden,'VKeyboardHidden');

var
 MyForm:TCLForm;
 testEdt:TclEdit;

void VKeyboardShown
{
  testEdt.Margins.Bottom = MyForm.clVKBoundsHeight;
}

void VKeyboardHidden
{
  testEdt.Margins.Bottom = 0;
}


{
  MyForm = TCLForm.Create(Self);
  
  testEdt = MyForm.AddNewEdit(MyForm,'testEdt', '');
  testEdt.Align = alBottom;
  
  MyForm.AddNewEvent(MyForm,tbeOnVirtualKeyboardShown,'VKeyboardShown');
  MyForm.AddNewEvent(MyForm,tbeOnVirtualKeyboardHidden,'VKeyboardHidden');
  
  MyForm.Run;
}