Ver Mensaje Individual
  #3  
Antiguo 10-12-2022
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Reputación: 2
giantonti1801 Va por buen camino
Cita:
Empezado por PepCat Ver Mensaje
Hola,

Pueds intentar utilizar el evento "OnVirtualKeyboardShown", que se activa cuando el teclado virtual se muestra en la pantalla. Puedes utilizar este evento para redimensionar o reposicionar tu formulario y asegurarte de que no queda oculto por el teclado.

Aqui tienes un ejemplo para Delphi 11: https://docwiki.embarcadero.com/Code...bleForm_Sample
Gracias lo implemente pero me da un error de
Código Delphi [-]
[DCC Error] Registred.pas(114): Incompatible types: 'string' and 'TStrings'
creo que tiene que ver con esto
Código Delphi [-]
uses UnitLoginMv, System.Math;

Código Delphi [-]
procedure TForm1.CalcContentBoundsProc(Sender: TObject;
           var ContentBounds: TRectF);
begin
   if FNeedOffset and (FKBBounds.Top > 0) then
  begin
    ContentBounds.Bottom := Max(ContentBounds.Bottom,
                            2 * ClientHeight - FKBBounds.Top);
  end;
end;
Responder Con Cita