toolbar

toolbar

Postby Patricio Avalos Aguirre » Wed Nov 15, 2006 6:43 pm

Hola

Consulta como puedo enviar el mensaje que cuando se presiona el boton del toolbar se active el menu

Code: Select all  Expand view  RUN
DEFINE TBMENU OF aToolBar[1]         ;
      ACTION  ListArtCli(.t.)               ;//aqui al presionar que active el popup
      TOOLTIP ansitooem("Mantención·Clientes")   ;
      PROMPT  "Clientes"                         ;
      WHEN .F.                                   ;
      MENU ShowPopup( )

...

function showpopu()
local oPopup

MENU oPopup POPUP
  MENUITEM "opcion1" ACTION fAccion1()
  MENUITEM "opcion1" ACTION fAccion2()
ENDMENU
return( oPopup )



Saludos
Patricio
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 112 guests