Publicar un evento

[Migmam2]

Hola a todos.

Tengo creado un componente que utiliza un TreeView y me gustaría publicar el evento OnChange del TreeView en mi componente de tal forma que aparezca en la lista de eventos del inspector del objeto.

¿Cómo puedo hacerlo?

Gracias por vuestra ayuda.

[Lepe]

Si ese Treeview lo has puesto en tiempo de diseño en tu Componente, no tienes que hacer nada.

Cuando pegues tu componente en un Form, podrás seleccionar el Treeview y asignar su evento OnChange.

Saludos

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

Tengo creado un componente que utiliza un TreeView y me gustaría publicar el evento OnChange del TreeView en mi componente...

¿Tu componente hereda de un TreeView? ¿Tu componente tiene encapsulado dentro un TreeView?

Es que no me queda claro...

[Migmam2]

El componente no hereda de un TreeView sino de TPanel y efectivamente está encapsulado. De ahí el problema, que no puede ser seleccionado directamente.

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

Ok. Crea dentro de tu componente lo que se llama una "propiedad puente".
Crea en tu componente una propiedad published del mismo tipo que el evento que quieres capturar.
Internamente captura el evento del componente TreeView y cuando "salte" el del TreeView, haz "saltar" el que has creado tú en tu componente.

No se si me expliqué decentemente...:o:o:o

[Migmam2]

Gracias por la respuestai. Creo que te he entendido. Voy a probarlo. Si viera o viese que no, vuelvo a escribir.

Saludos.

[Migmam2]

No me funciona. He generado lo siguiente:

published

property onChangeTreeNode: TTVChangedEvent read FOnChange write FOnChange;

y en la creación del componente:

FTreeViewSymbol.OnChange := onChangeTreeNode;

El evento si me aparece publicado en el componente, pero no salta.

¿ qué estoy haciendo mal ?

Gracias.

[Lepe]

la creación de tu componente ¿cuando ocurre?, cuando lo pegas por primera vez en tu form, y en ese momento, OnChangeTreeNode es nil (todavía no se le ha asignado ningún valor).


published

property onChangeTreeNode: TTVChangedEvent read FOnChange write SetOnChange;

implementation


procedure TMicomponente.SetOnChange(Value: TTVChangedEvent);
begin
if Value <> FOnchange then
begin
FTreeViewSymbol.OnChange := Value;
FOnChange := Value;
end;
end;


Saludos

[Migmam2]

Hola Lepe.
Siguiendo tu ejemplo me da el error de Not enough actual parameters.

Saludos.

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

Vas bien, la idea es esa, pero no debes apuntar entre los dos eventos directamente, necesitas un procedimiento.



// La propiedad
property onChangeTreeNode: TTVChangedEvent read FOnChange write FOnChange;

// necesitas un procedimiento con los mismos parametros que el evento.
procedure MyOnChange(Value: TTVChangedEvent);

.....
// Cuando haces la asignación asignas el evento original a tu procedimiento
FTreeViewSymbol.OnChange := MyOnChange;

// Y en el procedimiento creado haces saltar tu nuevo evento...
procedure TMicomponente.MyOnChange(Value: TTVChangedEvent);
begin
// llega aquí cuando salta el del componente original...

// Tenemos el nuestro asignado?
if Assigned(FOnChange) then begin
// Hacemos "saltar" el nuestro
Self.FOnChange(Value);
end;
end;



Te lo he puesto de memoria, así que tal vez haya algun error, pero creo la idea se entiende.
Prueba y si no te aclaras dilo e intentaré ser más concreto.

Un saludo.

[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.

[Lepe]

Siempre he creado los eventos de la forma que tu propones Neftali, pero en este caso, ya que es un "puente", como tú bien has dicho, pensé: "se podrá obviar ese procedimiento intermedio ¿no?"

Perdón, acabo de ver el por qué no se puede obviar ese procedimiento. La verdad, estaba cuestionando la forma de trabajar Delphi, e incluso "quería ir un poco más lejos" perdiendo de vista el horizonte :o

Saludos

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

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.

[Lepe]

Si no entiendo yo mal FOnChange contiene una referencia al procedimiento creado por el usuario final del componente, siendo el mismo tipo de evento
Hasta aquí todo correcto.


y asignandolo al OnChange del TreeViewSymbol estamos pasando esa misma referencia al evento del TreeView. ¿ no ?

No. En la asignación:

FTreeViewSymbol.OnChange := FOnChange;

estamos inutilizando el código que hay escrito en el TreeView.Onchange, y sustituyendolo por el código que ha escrito el usuario de nuestro componente. Pero ni el Treeview, ni nosotros, mandamos ejecutar ese código.

Como sabemos, la única forma de ejecutar un evento es mediante:

if Assigned(NombreEvento) then
NombreEvento(parámetros)


Como esas 2 líneas faltaban en nuestro código, nunca se ejecutaba el evento, dicho de otra forma, "el evento no saltaba".

Saludos

[Migmam2]

Me ha quedado clarito clarito. Con semejantes maestros era de esperar :)

Muchas gracias a los dos.