Publicar un evento

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

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

Código Delphi [-]
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.

Código Delphi [-]
// 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

Saludos