Hallo Marcel!
Ich gehe mal davon aus, dass du Profan 7.x verwendest...
Wenn das ListView sich in einem Fenster mit Dialogstil befindet, kann man einen Rechtsklick per %NotifyCode erkennen (wechselt beim Loslassen der rechten Maustaste auf -12, egal ob der Eintrag schon selektiert ist oder nicht).
Allerdings wird der Eintrag ja nicht "richtig" selektiert; darum musst du zur Abfrage des Eintrages wohl die TVM_HITTEST-Message einsetzen:
'--------------------------------------------Vorbereitung
def GetCursorPos(1) !"user32","GetCursorPos"
def ScreenToClient(2) !"user32","ScreenToClient"
declare Hit#
struct Hit=X&,Y&,Flags&,Item&
dim Hit#,Hit
'--------------------------------------------Programmfunktionen
'***
'--------------------------------------------Abfrage bei Rechtsklick
GetCursorPos(Hit#)
ScreenToClient(TreeView&,Hit#)
sendmessage(TreeView&,4369,0,Hit#)'--TVM_HITTEST
print "ItemHandle",Hit#.Item&
HTH
Pascal
|