¿Cómo liberar el control dentro de su controlador de eventos?

Question

¿Alguien sabe el truco, cómo liberar el control dentro de su controlador de eventos? De acuerdo con la ayuda de Delphi no es posible ...

Quiero liberar dinámicamente TEdit creado, cuando Self.Text = ''.

TAmountEdit = class (TEdit) 
. 
. 
public 
    procedure KeyUp(var Key: Word; Shift :TShiftState); 
end; 

procedure TAmountEdit.KeyUp(var Key: Word; Shift :TShiftState); 
begin 
inherited; 
if Text='' then Free; // after calling free, an exception arises 
end; 

¿Cómo se debe hacer para lograr el mismo efecto?

Thanx

Answer 1

la solución es para enviar un mensaje en cola con el control, que responde a por destruirse a sí mismo. Ny convención usamos CM_RELEASE que es el mensaje privado utilizado por TForm en su implementación del método Release que realiza una tarea análoga.

interface 

type 
    TAmountEdit = class (TEdit) 
    ... 
    procedure KeyUp(var Key: Word; Shift :TShiftState); override; 
    procedure HandleRelease(var Msg: TMessage); message CM_RELEASE; 
    ... 
    end; 

implementation 

procedure TAmountEdit.KeyUp(var Key: Word; Shift :TShiftState); 
begin 
    inherited; 
    if Text = '' then 
    PostMessage(Handle, CM_RELEASE, 0, 0); 
end; 

procedure TAmountEdit.HandleRelease(var Msg: TMessage); 
begin 
    Free; 
end; 

El control se destruye cuando la aplicación enciende su cola de mensajes.

Answer 2

Antes de implementar este Me parar y preguntar "Lo que tienes es el mejor enfoque?"

Está seguro de querer una clase de control de edición que siempre destruye a sí misma cuando los resultados de entrada clave en el texto propiedad convirtiéndose en una cadena vacía?

¿No es más probable que tenga un formulario/diálogo específico donde se requiere este comportamiento? En ese caso, no hay problema ... puede liberar el control de edición en el evento KeyUp manejado por el formulario sin incurrir en una Infracción de Acceso .