Was ist an dem Code falsch?
Delphi-Quellcode:
procedure TForm1.item1Click(Sender: TObject);
begin
showmessage('Sie haben auf Nr. '+inttostr(userlist.ItemAtPos(popupmenu1.popuppoint,true)) +' geklickt');
end;
item1 ist ein Item des Popup-Menüs.
Es wird ständig -1 angezeigt.