Ver Mensaje Individual
  #4  
Antiguo 11-01-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.310
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita