eigenes Popup-Menü durch gedrückte Maustaste

[zappel]

Danke teebee! Das war genau das, was ich gebraucht habe!

Hier ist mein Ergebnis, vielleicht kann es ja irgendwann irgendwer irgendwo gebrauchen!

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then begin
    ListBox1.Top:=y-(ListBox1.Height div 2);
    ListBox1.Left:=x-(ListBox1.Width div 2);
    ListBox1.Visible:=true;
    ReleaseCapture;
  end;
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.ItemIndex:=ListBox1.ItemAtPos(Point(x,y),true);
  //Label1.Caption:=IntToStr(ListBox1.ItemAtPos(Point(x,y),true));
end;

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: integer;
begin
  ListBox1.Visible:=false;
  for i:=0 to ListBox1.Items.Count-1 do
    if ListBox1.Selected[i] then
      Label1.Caption:=ListBox1.Items[i];
end;