Publicar un evento

[Migmam2]

Hola Neftali,

Al hacer esta asignación:

FTreeViewSymbol.OnChange := MyOnChangeTreeView;

me daba error de tipos incompatibles ¿? TObject y TTVChangedEvent.

Lo que he hecho es cambiar el parámetro de MyOnChangeTreeView y
la llamada al FOnChange y funciona perfectamente

procedure TMiComponente.MyOnChangeTreeView(Sender: TObject; Node: TTreeNode);
begin
  if Assigned(FOnChange) then begin
    Self.FOnChange(Sender,Node);
  end;
end;

Ahora bien, me gustaría saber (si no es mucho pedir ) por qué no se puede hacer la asignación directamente, es decir:

FTreeViewSymbol.OnChange := FOnChange;

Si no entiendo yo mal FOnChange contiene una referencia al procedimiento creado por el usuario final del componente, siendo el mismo tipo de evento y asignandolo al OnChange del TreeViewSymbol estamos pasando esa misma referencia al evento del TreeView. ¿ no ?

Gracias por tu ayuda.

Gracias también a Lepe.