Ver Mensaje Individual
  #1  
Antiguo 11-05-2019
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 17
look Va camino a la fama
Edit visible con teclado virtual.

Hola amigos, econtre esto:
https://forums.embarcadero.com/threa...00928&tstart=0

este codigo aparentemene hace lo que quiero, mantener el edit visible :

Código Delphi [-]
// Include System.Messaging in the uses clause
 
type
  TForm1 = class(TForm)
  private
    procedure VirtualKeyboardRectChangeMessageHandler(const Sender: TObject; const M: TMessage);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;
 
...
 
uses
  DW.Messaging, DW.VirtualKeyboard.Helpers;
 
constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  TMessageManager.DefaultManager.SubscribeToMessage(TVirtualKeyboardRectChangeMessage,
VirtualKeyboardRectChangeMessageHandler);
end;
 
destructor TForm1.Destroy;
begin
  TMessageManager.DefaultManager.Unsubscribe(TVirtualKeyboardRectChangeMessage,
VirtualKeyboardRectChangeMessageHandler);
  inherited;
end;
 
procedure TForm1.VirtualKeyboardRectChangeMessageHandler(const Sender: TObject; const M: TMessage);
var
  LRect: TRect;
begin
  LRect := TVirtualKeyboardRectChangeMessage(M).Value;
  // LRect now contains the actual rect of the VK
end;

aqui el link a git : https://github.com/DelphiWorlds/KastriFree

he segido todos los pasos, agregado las units necesarias, pero no funciona, no veo ningun efecto, ¿Alguien podria hecharme una mano?

por cierto,hago el build con delphi berlin
__________________
all your base are belong to us
Responder Con Cita