Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)
-   -   crear nuevos eventos para un TBotton (https://www.clubdelphi.com/foros/showthread.php?t=16828)

Paco 13-12-2004 20:30:50

crear nuevos eventos para un TBotton
 
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 13-12-2004 20:58:34

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:

Código Delphi [-]
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 14-12-2004 18:08:35

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


La franja horaria es GMT +2. Ahora son las 06:46:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi