|
ya de paso, para conocer si el control es un boton o lo que toque, ¿porqué comoparas por el nombre disponiendo del tipo?
(Fprincipal.ActiveMDIChild.ActiveControl.classname <> 'TButton')
se puede sustituir por
(Fprincipal.ActiveMDIChild.ActiveControl is TButton)
con lo que encima funcionará para cualquier componente que herede de TButton. Y si te pones a refinar un poco más (la herencia sirve para muchas cosas)...
Resulta que TBitBtn y TButton heredan de TButtonControl con lo que eliminas una de las condiciones...
...y resulta que SpeedButton no existe como clase. Sí TSpeedButton.
|