Nuevo Componente

[diegofhernando]

Que tal foro...

Ahora que ando con un poco de tiempo libre, por fin decidi dedicarme a aprender la creacion de componentes, bien pues quiero iniciar con un DBEdit, algo muy basico como que al entrar el cursor cambie el color del componente y al salir lo restaure... inicialmente adquiri algunos buenos tutoriales acerca de como se crean componentes, pero en ningun sitio encontre como se puede introducir codigo en los TNotifyEvents... es decir eventos como OnEnter y OnExit del componente... como los sobreescribo... o se puede hacer??? agradezco toda la colaboracion que me puedan ofrecer.

Salu2

[roman]

Normalmente no es buena idea que tus componentes escriban directamente eventos. Lo puedes hacer declarando e implementando manualmente el manejador del evento y asignándolo en el constructor de la componente:

type
  TTuComponente = class(...)
  private
    procedure TuOnClick(Sender: TObject);
  
  public
    constructor Create(AOwner: TComponent);
  end;

...

constructor TTuComponente.Create(AOwner: TComponent);
begin
  inherited;
  OnClick := TuOnClick;
end;

Aunque esto en principio funciona el problema estará cuando el usuario de tu componente asigne él mismo un manejador a este evento ya que al hacerlo borrará cualquier funcionalidad que tú le hayas puesto con el método TuOnClick.

Muchos de los eventos son generados por un método protegido que es el que debes reescribir. Por ejemplo los eventos OnMouseDown y OnMouseUp se generan en los métodos protegidos MouseDown y MouseUp:

if Assigned(FOnMouseDown) then
  FOnMouseDown(Self, ...)

de manera que es por ahí por donde tienes que buscarle. No siempre es inmediato saber cuál es el método protegido que genra tal o cual evento pero ayuda revisar el código fuente de las componentes de las que estás heredando o bien preguntarlo:

"¿Qué método o dónde genera se genera el evento OnXXX?"

según vayas requiriendo.

// Saludos

[delphi.com.ar]

Puedes hacer algo similar a lo que se muestre en este hilo: http://www.clubdelphi.com/foros/show...=&threadid=940 , pero si con "entrar" y "salir" te refieres a cuando recibe o pierde el foco, tendrías que utilizar los mensajes WM_SETFOCUS y WM_KILLFOCUS.

Saludos!

[diegofhernando]

Perfecto, de acuerdo a sus comentarios he encontrado los procedimientos adecuados... DoEnter, DoExit...

Gracias por su colaboración

Salu2