Control del mouse de un objeto desconocido

[ElDuc]

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.

[Ñuño Martínez]

Todos (o casi) los componentes derivan de una misma clase. Comprueba la herencia de los componentes buscando esa clase común que implemente "onMouseMove" y úsala.

[ElDuc]

Gracias compañero,

Lo he hecho y funciona bien, pero ese evento está declarado como privado y se debe hacer público:

Código Delphi [-]
Type
    T_Control=Class(TControl);
      Public
      Property OnMouseMove;
   End;
...
...
Procedure Create(AOwner:TComponent);
Begin
T_Control(MyControl).OnMouseMove:=NewOnMouseMove;
End;

SI alguien sabe si existe un evento que se dispara cuando se añade un control le agradeceré mucho que me lo diga, lo necesito para añadir precisamente la asignación del evento OnMouseMove, cuando es insertado un control.

Gracias otra vez.

[roman]

No creo que exista el evento como tal, pero sí existe la notificación CM_CONTROLCHANGE que se manda cuando se agrega o se quita un control de un contenedor. Tú puedes derivar un componente de TPanel el cual maneje esa notificación y la convierta en un evento:

Código Delphi [-]
type
  TControlChangeEvent = procedure (Control: TControl; Inserting: Boolean);

  TMiPanel = class(TPanel)
  private
    FOnControlChange: TControlChangeEvent;
    procedure CMControlChange(var Message: TCMControlChange); message CM_CONTROLCHANGE;
  end;

implementation

procedure TMiPanel.CMControlChange(var Message: TCMControlChange);
begin
  inherited;

  if Assigned(FOnControlChange) then
    FOnControlChange(Message.Control, Message.Inserting);
end;

// Saludos

[ElDuc]

Muchas gracias Roman, lo he probado y va muy bien.