Evento OnClick de un componente Edit
 

Muy buenos dias, os intento explicar lo que necesitaria hacer a ver si es posible....

Tengo creados unos componentes propios, dentro de los cuales tengo un componente Edit, quisiera implementar dentro de este en el evento onclick un cierto codigo para que cada vez que cree un elemento tipo edit lleve asociada esta accion. Lo que no se es como debo hacerlo....

Podriais echarme una mano?

Si no me he explicado bien me lo decis e intento explicarlo mejor....

El código del onclick ponelo dentro de un procedimiento (ej: procedure MiClick(Sender:TObject)) y donde creas el componente pones lo siguiente:

Código Delphi [-]
  Edit1.OnClick := MiClick;

Creo que no me he explicado bien, yo quiero que siempre que cree un Edit tenga ese procedimiento asociado... se haria asi?¿

esta bien lo tenes que poner en tu componente (lo puse en un componente q tengo unos botones y al hacer click en el boton ejecuto el onclick)

Hola,
si estas derivando tu componente de TCustomEdit, puedes hacer un override del metodo click:

Código Delphi [-]
 
type TMyEdit = class(TCustomEdit)
   ...
   public  
   procedure Click; override;
   ...
end;
 
...
 
procedure TMyEdit.Click;
begin
 // Tu codigo
  inherited Click;
end;

si lo que estas haciendo es un componente desde scratch, no derivado de TControl, entonces tendras que procesar los mensajes del raton. Saludos

Ok, muchas gracias era lo que necesitaba.

Un saludo!!!