>How or can one have a menu come up with a right click similar to what Word is doing? Is this possible in version 8 or 6?
>
>If I would need to construct a menu, is there sample code.
>
>Thanks,
>
Larry;

On this sample I am doing this on the mousedown method of treeview object:

procedure thisform.mytreeview.mousedown
*** ActiveX Control Event ***
Lparameters button, shift, x, y
Local loNode
If  Button = 2
    * mouse right buttom
    wform=thisform  && must be public variable
    Define POPUP shortcut shortcut IN WINDOW form1  MARGIN FROM MROW(), MCOL()
    Define BAR 1 OF shortcut PROMPT "\<Set "+alltrim(proper(clients.name))+" on the line" FONT 'Arial', 8 style "T"
    Define BAR 2 OF shortcut PROMPT '\-'
    Define BAR 3 OF shortcut PROMPT "\<Copy other client") FONT 'Arial', 8 style "T"
    Define BAR 4 OF shortcut PROMPT '\-'
    Define BAR 5 OF shortcut PROMPT "E\<xclude client"     FONT 'Arial', 8 style "T"
    On SELECTION BAR 1 OF shortcut wform.incfila("SET")
    On SELECTION BAR 3 OF shortcut wform.incfila("COP")
    On SELECTION BAR 5 OF shortcut wform.excfila("EXC")
    Activate POPUP shortcut
endif

HTH

Claudio