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
Julian J. Pracht