Teclado virtual se superpone a los controles de entrada

[MAXIUM]

Empezado por jhonalone

Buscando por ahí he encontrado esta unidad que, sólo con citarla en la cláusula uses, hace todo el trabajo por nosotros.

vkbdhelper.pas

Force focused control visible when Android/IOS Virtual Keyboard showed or hiden

How to use?

place vkdbhelper into your project uses section. No more code needed.

----

[[kurono]]

y el ejemplo que motraste mas arriba de embarcadero que tal funciona

[MAXIUM]

Empezado por kurono

y el ejemplo que motraste mas arriba de embarcadero que tal funciona

No funciona

Tal parece que no resulta para todas las versiones de Firemonkey. Embarcadero tiene una tarea pendiente https://stackoverflow.com/questions/...eyboard-height

[[kurono]]

acabo de bajar la unit vkdbhelper y ya la probe funciona a la primera creo que me quedo con esta

[MAXIUM]

Empezado por kurono

acabo de bajar la unit vkdbhelper y ya la probe funciona a la primera creo que me quedo con esta

¿Que versión de Delphi estas usando?

[[kurono]]

delphi xe7 update 1

[jhonalone]

Hola MAXIUM.
Con tu mismo código, Samsung J5, Android 6.0.1, DX10 Seattle

Código Delphi [-]
unit HeaderFooterTemplate;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Edit, FMX.Controls.Presentation, vkbdhelper;

type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HeaderFooterForm: THeaderFooterForm;

implementation

{$R *.fmx}

end.

[IMG]http://www.clubdelphi.com/foros/atta...1&d=1508687402[/IMG]

Como te dije, la primera vez que pulsas el TEdit puede que se solape, pero después ya no.

Mis disculpas, por no saber subir la imagen de modo que salga directamente en el mensaje. Creo que es la primera vez que lo intentod y no conozco otro modo.

Saludos

[hernandoh]

Hoal es mi primera vez en el foro, pero tengo algo así:

Código Delphi [-]
procedure TLoginForm.FormVirtualKeyboardShown(Sender: TObject;
  KeyboardVisible: Boolean; const Bounds: TRect);

  var
  alto_pantalla,alto_teclado,pos_obj,pos_focus : integer;
  total_pos : Extended;
  control : TCOntrol;
begin
  alto_pantalla := Screen.Height;
  alto_teclado := Bounds.Height;

  control:= LoginForm.GetFocused as TControl;
  pos_obj := round(control.Position.Y);

  total_pos := round(alto_pantalla - alto_teclado);
  pos_focus := pos_obj - alto_teclado;

  if pos_obj > total_pos then
  begin
    Login_contenedor.Align := TAlignLayout.None;
    login_contenedor.AnimateFloat('Position.Y',-(pos_focus),0.1,TAnimationType.InOut,TInterpolationType.linear);
  end;
end;

No está completo pero seguro funciona; le puedes cacharrear y mejorar. Si logras mejorarlo, lo compartes por fa, es la idea del foro. :P


saludos.

[rdaniel2000]

La solucion es esta:

Esta libreria MoveControlForVK

Buscala en google, la probe y funciona muy bien...