eigenes Popup-Menü durch gedrückte Maustaste

[teebee]

Ich habe sowas mal mit einer ListBox gemacht, die auf Mausklick an der Cursorposition sichtbar gemacht wird. Als ersten Ansatz:

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 If ListBox1.Visible Then ListBox1.Visible := False;
 If Button=mbRight Then Begin
  // Hier die Listbox mit sinnvollen Werten füttern
  // ...
  ListBox1.Top := y;
  ListBox1.Left := x;
  ListBox1.Visible := True;
  ListBox1.Itemindex := 0;
  ListBox1.SetFocus;
 End;
end;

Gruß, teebee
[EDIT]Sorry, jetzt erst gesehen, dass Du in 'Windows-API' gepostet hattest, das Prinzip ist das gleiche, nur ein kleines bisschen aufwendiger...[/EDIT]
[EDIT]Kleinen Fehler berichtigt[/EDIT]