crear nuevos eventos para un TBotton

[Paco]

Necesito crear el evento doble click para varios botones TBotton, se que hay otros botones que ya poseen ese evento pero me gustaria mantener este tipo de boton.
Gracias

[roman]

El evento OnDblClick ya existe en un TButton pero debes prepararlo un poco para su uso. Primero que nada supongo que sabes que tienes que crear una nueva componente que descienda de TButton pues no puedes añadir propiedades a una clase ya existente.

En el constructor de dicha componente, luego de la llamada a inherited pones:

ControlStyle := ControlStyle + [csClickEvents];

y publicas el evento en la declaración de la componente:


type
TMiBoton = class(TButton)
published
property OnDblClick;
end;


EDITO:

Mmm, recién caigo en la cuenta de que esta pregunta está en el foro de Kylix así que no sé si la respuesta que di sea correcta en tal situación. De no ser así lo lamento y pido disculpas.

// Saludos

[Paco]

He adelantado mucho con tu consejo,gracias, pero ahora si intento cambiar los botones que eran TButton, por mis nuevos botones TMiboton, a la hora de compilar me dice que no se corresponden los nuevos botones con la componente de TButton que puse en el panel. Que puedo hacer ...? Debo asignar la componente de TButton a mi nuevo TMiBoton.