Ver Mensaje Individual
  #3  
Antiguo 16-10-2007
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.293
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
Cita:
Empezado por cacu Ver Mensaje
Estoy tratando de derivar un componente y poder modificar el evento onclik del TButton, que cuando se ejecute este evento me aparesca un mensaje...
Como ya te han dicho, para sacar un mensaje puedes usar el evento estandard del componente.
Si realmente necesitas derivarlo, entonces, en ese caso, nunca debes utilizar los eventos del componente, para eso debes utilizar métodos virtuales o mensajes.

En el caso de TButton, hay un evento que puedes sobreescribir:

Código Delphi [-]
  procedure Click; override;

Crea este método en la parte public de tu componente y programa lo que necesites (no olvides de llamar al inherited); Algo así:

Código Delphi [-]
procedure TMiButton.Click();
begin
  // Método heredado
  inherited Click;
  // Mostrar mensaje
  ...    <= Tu mensaje
end;
__________________
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.

Última edición por Neftali [Germán.Estévez] fecha: 16-10-2007 a las 16:37:43.
Responder Con Cita