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
|