Ver Mensaje Individual
  #1  
Antiguo 18-10-2012
ElDuc ElDuc is offline
Miembro
 
Registrado: jul 2004
Posts: 197
Reputación: 0
ElDuc Va por buen camino
Control del mouse de un objeto desconocido

Hola a todos,

Estoy diseñando un componente derivado de TPanel y necesito controlar los eventos del mouse de los componentes que se inserten en él.

El problema es que no sé a priori que elementos se le insertarán y si estos tendrán los eventos del mouse.

Por ejemplo si se inserta un TLabel o un TButton cómo puedo asignar el OnMouseMove si yo no sé qué se insertará.

Se me ocurre algo como esto:

Código Delphi [-]
If NewObject.ClasType=TLabel Then TLabel(NewObject).OnMouseMove=MyOnMouseMove;

If NewObject.ClasType=TButton Then TTButton(NewObject).OnMouseMove=MyOnMouseMove;

Pero me imagino que debe haber una forma de hacerlo sin tener que comprobar todos los posibles componentes y eso es lo que no sé.

Otra preguntita, alguien sabe si hay algún evento que se dispare cuando se inserta un nuevo control?

Gracias por vuestra ayuda.
Responder Con Cita