Hola Neftali,
Al hacer esta asignación:
Código:
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
Código:
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.