Ver Mensaje Individual
  #1  
Antiguo 24-06-2011
r_e_g_2007 r_e_g_2007 is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 20
Reputación: 0
r_e_g_2007 Va por buen camino
Question Componente que ejecute un evento de un componente asociado

Hola,
Un saludo a todos
Tengo un componente no visual que tiene una propiedad Control: WinControl. Entonces quisiera que cada vez que se haga clic (OnClick) en el componente que se selecciona en la propiedad Control se ejecute un codigo que tengo en mi componente. Ademas de este código que está en mi componente debe ejecutarse el codigo del evento OnClick del componente asociado si es que el programador le pone algo en ese evento. Es decir debe ejecutarse cuando se da clic en ese componente puesto en Control el codigo hecho en mi documento y además el codigo que el programador ponga en el evento OnClic
Aqui pongo un pedazo del programa

Código Delphi [-]
 
TMyComponente = class
private
 FControl: TWinControl;
 procedure ControlClick(Sender: TObject);
published
 property  Control: TWinControl read FControl write FControl; //Para asociar un componente 
visual
end;

TForm1= class(TForm)
 Panel1: TPanel;
 procedure Panel1Click(Sender: TObject);
end;

Quisiera que se ejecutara para el control asociado el codigo controlclick cuando se de click en el componente visual y además el evento ONClick de Panel1 Panel1Click.
Bueno cualquier idea que puedan darme se lo agradeceré.
Una vez mas muchas gracias por todo.
Responder Con Cita