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]