Hallo René!
Vielleicht hilft dir dies weiter:
'*******************************************************************
window 50,50-500,500
def GetCursorPos(1) !"USER32","GetCursorPos"
def ScreenToClient(2) !"USER32","ScreenToClient"
declare dlg&,Pos#
dim Pos#,8
dlg&=create("dialog",%hwnd,"Test",200,200,200,200)
usermessages 516
while 1
waitinput
if (%umessage=516) and (%mwnd=dlg&)'---Rechtsklick in Dialog
GetCursorPos(Pos#)
ScreenToClient(%hwnd,Pos#)
createmenu
appendmenu 10,"&blau"
appendmenu 11,"&rot"
appendmenu 12,"&grün"
separator
appendmenu 13,"&Ende"
trackmenu long(Pos#,0),long(Pos#,4)
case menuitem(13):break
print "Ausgewählt:",%menuitem
endif
endwhile
dispose Pos#
'*******************************************************************
HTH
Pascal
|