[[coso]]

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