Skip to main content
2 de 2
se añadieron 623 caracteres en el cuerpo
jachguate
  • 32.1k
  • 8
  • 41
  • 69

Recomiendo leer la primera parte de mi respuesta, pues hay varios conceptos relacionados que considero importante dominar para programar en Delphi. Sin embargo puedes saltar al final de la respuesta para encontrar la solución a tu problema.

Eventos en Delphi

Comenzaré explicando algunas ideas detrás de los eventos en Delphi.

  • Object Pascal soporta lo que se conoce como tipos procedurales Procedural types que, en resúmen, son variables que contienen un puntero a un fragmento de código ejecutable, por ejemplo, esto es válido en pascal:

      type
        TStrProc: procedure(const S: string);
      var
        MiVariableAProcedimiento: TStrProc;
      begin
        MiVariableAProcedimiento := @StrProc1;
        MiVariableAProcedimiento('hola');
        MiVariableAProcedimiento := @StrProc2;
        MiVariableAProcedimiento('hola otra vez');
      end;
    

    Los procedimientos StrProc1 y StrProc2 tienen que existir, su firma debe coincidir con la declaración del tipo y deben ser visibles al código de la asignación.

  • Un tipo especial de estos es un apuntador a método (method pointer) que es un doble puntero que, además de apuntar al fragmento de código ejecutable, apunta también a una instancia de un objeto en memoria. Su declaración incluye las palabras of object al final de la declaración de tipo, así:

      type
        TNotifyEvent: procedure(Sender: TObject) of object;
        TMiTipoDeMetodo: procedure(const S: string) of object;
    
  • Un evento no es más que una propiedad de tipio apuntador a método.

  • El método de una clase que se asocia a un evento se conoce como manejador de evento. Hay una linea algo fina aquí, pero debe quedar claro que el método no es el evento en si, sino el código que se ejecutará cuando se lance el evento.

  • En tiempo de ejecución un evento puede estar asociado a un manejador particular o no estar asignado a ningún manejador. De hecho, la asociación se puede cambiar en cualquier momento, considera este caso:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage('No hagas clic de nuevo!');
      Button1.OnClick := Button1NuevoClick;
    end;
    
    procedure TForm1.Button1NuevoClick(Sender: TObject);
    begin
      ShowMessage('No creí que te atrevieras, no haré nada más por ti');
      Button1.OnClick := nil;
    end;
    
  • Cuándo estás diseñando un formulario o módulo de datos, cuando haces doble clic en el inspector de objetos ocurren dos cosas:

    • Se crea un manejador de eventos en la clase del formulario o módulo de datos que estás editando. Esto involucra la declaración del método en la declaración de clase, y su implementación. El cursor se coloca después del begin de dicha implementación.
    • Se asocia el evento en el componente que tienes seleccionado con dicho manejador de evento. Esta asociación queda registrada en el archivo dfm en el caso de VCL o fmx en el caso de FireMonkey.
  • En tiempo de ejecución, cuando se crea una instancia de este formulario, el mecanismo de streaming resolverá la asociación entre el manejador de evento y el evento registrada en el DFM/FMX y realizará dicha asignación en las instancias correctas de los objetos. De esta forma podemos tener varias instancias de un formulario o módulo de datos, y no hay confusión en qué objeto es el que está relacionado cuando se lanza el evento como tal.

  • Quiero resaltar en este punto que, si observas con detenimiento, el método asociado como manejador de evento no tiene por qué pertenecer al mismo objeto que publicó el evento. Esto ocurre todo el tiempo si, por ejemplo, botas un botón en el formulario, haces doble clic en él y se crea un manejador de evento en la clase del formulario, que es asociado al evento del botón.

Encontrarás más información en la documentación: Eventos

Por qué no se lanzan los eventos en tu programa actual:

Dicho todo esto, lo que falta es realizar dicha asociación entre evento y manejador, que no es más que una asignación :=, por ejemplo, después de crear el formulario, faltaría agregar:

FormDisplay.OnKeyDown := FormDisplay.FormKeyDown;
FormDisplay.OnKeyUp := FormDisplay.FormKeyUp;

Reflexiones adicionales

Dicho esto, si no quieres utilizar el DFM/FMX asociado al formulario porque quieres algo totalmente vacío, cuestionaría el por qué estás utilizando el editor de formularios para diseñarlo.

En realidad no hace falta, puedes declarar la clase en una unidad simple, sin DFM asociado y trabajar en ella sin el editor de formularios.

De hecho, puedes romper la asociación que hay entre el .pas y el .dfm eliminando la línea

{$R *.dfm}

Y luego puedes eliminar el archivo DFM completamente. Hecho esto, no podrás utilizar más el editor de formularios, pero entiendo que es lo que quieres.

Por otro lado, si no quieres llenar el código de asignaciones de manejadores de eventos, es perfectamente legal tener un formulario completamente vacío en el editor de formularios, y aprovechar los poderes del inspector de objetos para crear manejadores de eventos y que se asignen de manera automática en tiempo de ejecución. Para que esto ocurra, claro está, hay que llamar al constructor Create del formulario y dejar que haga su trabajo, pues eso permitirá tener un código más simple.

jachguate
  • 32.1k
  • 8
  • 41
  • 69