Bruno,
¿ como mostrar un menu de opciones en un TToolButton con style bsDropDown ?, la flecha sale perfectamente a la derecha del boton, pero ... ¿ como hacer aparecer un menu al pulsar la flecha ?.

Un saludo.
Vïctor

Víctor,

Con la propiedad PopupMenu del botón, revisa el ejemplo.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Bruno,
ya le he revisado, pero el popup se muestra tanto como si se pulsa sobre la fleja de la derecha del botón, como en el propio botón. ¿ Es posible diferenciar la pulsación sobre el botón y la pulsación sobre la fecha ?

Lo que pretendo es que al pulsar el botón se ejecute la acción asociada a este, y al pulsar la flecha del botón se muetre el popup para seleccionar una acción. ¿ Esto es posible ?.

He modificado este metodo del ejemplo que me mandas:

/*
* Evento OnCreate.
*/
METHOD Form1OnCreate( oSender ) CLASS TForm1

::Boton1:PopupMenu := ::PopupMenu1
::Boton1:Onclick:= {|| MessageDlg("Hola")}
return

Pero sigue sin funcionar como pretendo.

Espero haberme explicado.

Un saludo.
Víctor

Víctor,

Arreglado, tenías razón

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com