Listbox + Popupmenu

[DRPEnc]

Hat sich erledigt. Ich hab die Option

Delphi-Quellcode:

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  point : TPoint;
  lbpos : TPoint;
begin
{if Listbox1.Itemindex > -1 then
     begin
     lschen1.enabled:=true;
     alleslschen1.Enabled:=true;
     verschieben1.Enabled:=true;
     end
     //if Listbox1.Itemindex <= -1 then
     //begin
     else
     begin
     lschen1.enabled:=false;
     alleslschen1.Enabled:=false;
     verschieben1.Enabled:=false;
     end;
  if Button In [mbRight] then
  begin
    point.X := x;
    point.Y := y;
    ListBox1.ItemIndex := ListBox1.ItemAtPos(point,true);
    lbpos.X := Listbox1.Left + self.Left + x;
    lbpos.y := Listbox1.top + self.top + y;
    PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
  end;}

end;

entfernt. Da der Code

Delphi-Quellcode:

if Listbox1.Itemindex > -1 then
     begin
     lschen1.enabled:=true;
     alleslschen1.Enabled:=true;
     verschieben1.Enabled:=true;
     end;
     if Listbox1.Itemindex <= -1 then
     begin
     lschen1.enabled:=false;
     alleslschen1.Enabled:=false;
     verschieben1.Enabled:=false;
     end;

bei mousemove drinsteht und ich das Popupmenu nun mit der Listbox verknüpft habe [hatte ich zuvor nicht] funktioniert es nun wie es soll.