Consulta! Tengo un formulario que estoy creando en tiempo de ejecucion y no me captura los eventos keyDown y keyUp.
El asunto es que estoy realizando pruebas donde dibujo utilizando un formulario FMX y un formulario VCL para compararlos y de manera de aprendizaje. Estoy practicando y entendiendo como funcionan las unidades , herencia y demás.
Tengo la clase TVCLForm en una unidad aparte con todos los eventos ONKEYDOWN, ONKEYUP, implementados como cuando los realizo en diseño, pero sin haberlo hecho en tiempo de diseño.
En mi unidad principal determino que tipo de formulario creo, si VCL o FMX. Los formularios se crean. Puedo dibujar en ellos, VCL en win32 y FMX con Directx , pero necesito que me capturen las teclas y no lo estarían realizando. Otro tema también, es que estoy utilizando (CreateNew) , porque no quiero utilizar los DFM, ya que solo requiero crear un FORM vacio simple y sencillo, que solo capture teclas. Nada mas. Todo en codigo.
Unidad principal :
FormDisplay := TFormVcl.CreateNew(nil);
FormDisplay.Width := xLimit; //
FormDisplay.Height := yLimit;
FormDisplay.Position := poMainFormCenter;
FormDisplay.Enabled := true; // no modifica en absoluto el comportamiento
FormDisplay.Visible := true;
FormDisplay.Parent := nil; // no modifica en absoluto el comportamiento
FormDisplay.SetFocus; // no modifica en absoluto el comportamiento
FormDisplay.Show;
La unidad donde tengo TVCLFORM, es una unidad como todas con sus uses, y sus declaraciones nada mas :
procedure TFormVcl.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
65: bLeft := True;
83: bDown := True;
87: bUp := True;
68: bRight := True;
VK_SPACE : bShot := True;
end;
end;
// captura de eventos del teclado en formulario
procedure TFormVcl.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case key of
65: bLeft :=false;
83: bDown := false;
87: bUp := false;
68: bRight := false;
VK_SPACE :bShot := false;
end;
end;
Al crearlo de esta forma de seguro hay algo que escapa a mi conocimiento, algo que tenga que ver con el foco, que ya lo he intentado, o con la captura de mensajes de windows o eventos. Desconozco.
Al fin y al cabo la idea mas adelante es que la unidad detecte en que plataforma se encuentra y cree el formulario correspondiente, VCL en Windows, y FMX en android. **Entiendo que FMX funciona en ambos, pero esto lo estoy realizando a manera de aprendizaje para determinar que tanta independencia puedo darle a mis unidades **
Desde ya gracias.