Ver Mensaje Individual
  #11  
Antiguo 11-01-2008
Migmam2 Migmam2 is offline
Miembro
 
Registrado: jul 2006
Posts: 18
Reputación: 0
Migmam2 Va por buen camino
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.
Responder Con Cita