Xailer & OZ Software

Hello
I want to present a popup menu inside o TDBBrowse.
I want to take advantage of the event OnRClick to present a popup menu in
nXPos,nYPos.
Please tell me in breaf how to create an present the popup menu.
Many thanks for your help
Best regards
Dionisis

Dionisis,
Take a look at event OnContextMenu. A sample:
METHOD DbBrowseContextMenu( oSender, nPosX, nPosY ) CLASS ...
LOCAL oPopup
IF oSender:SelectCellFromPoint( nPosX, nPosY )
MENU POPUP oPopup
MENUITEM ... ACTION ...
MENUITEM ... ACTION ...
MENUITEM ... ACTION ...
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
ENDIF
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:[email=48846f6d@ozsrv2.ozlan.local...]48846f6d@ozsrv2.ozlan.local...[/email]
> Hello
>
> I want to present a popup menu inside o TDBBrowse.
> I want to take advantage of the event OnRClick to present a popup menu in
> nXPos,nYPos.
> Please tell me in breaf how to create an present the popup menu.
>
> Many thanks for your help
>
> Best regards
> Dionisis
>

Dionisis,
Take a look at event OnContextMenu. A sample:
METHOD DbBrowseContextMenu( oSender, nPosX, nPosY ) CLASS ...
LOCAL oPopup
IF oSender:SelectCellFromPoint( nPosX, nPosY )
MENU POPUP oPopup
MENUITEM ... ACTION ...
MENUITEM ... ACTION ...
MENUITEM ... ACTION ...
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
ENDIF
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:[email=48846f6d@ozsrv2.ozlan.local...]48846f6d@ozsrv2.ozlan.local...[/email]
> Hello
>
> I want to present a popup menu inside o TDBBrowse.
> I want to take advantage of the event OnRClick to present a popup menu in
> nXPos,nYPos.
> Please tell me in breaf how to create an present the popup menu.
>
> Many thanks for your help
>
> Best regards
> Dionisis
>