Listbox + Popupmenu

[Ultimator]

Ich weiß jetzt nicht, was deine ganzen Variablen bedeuten, aber ich würde das so machen:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer);
var
begin
if Listbox1.Itemindex <> -1 then
     PopUpMenu1.Enabled:=false
end;

Oder hab ich da was falsch verstanden?

Denn wenn der ItemIndex<>-1 ist, dann ist ja ein Item ausgewählt, von daher ist das sozusagen das gleiche wie das gesuchte itemselected