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 [-]
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;
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
|