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.

[Neftali [Germán.Estévez]]

Empezado por Migmam2

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 ?

El problema es que en el momento de asignarlo FOnChange no vale nada (nil).
Si esa asignación la haces en ejecución, cuando ya ha sido asignada la rutina del evento entonces funciona perfectamente, pero al hacerla en el OnCreate asigna una valor nil.

Si esa asignación la colocaras en un método que la hiciera una vez que el procedimiento del evento ya ha sido asignado (yo lo he probado en el método Invalidate) funcionaría perfectamente, pero personalmente no creo que sea el lugar correcto para ponerlo.