Hallo,
danke für deine Antwort.
Delphi-Quellcode:
if Assigned(ListView1.Selected) then
PopupMenu1.Popup();
So habe ich das jetzt gemacht. Nun muss ja aber noch eine X und Y Angabe bei Popup rein. Was geben die den an? Die Position wo sich das Popup öffnen soll? Falls ja, wie stelle ich die jetzige Position der Maus fest?
// Edit
Delphi-Quellcode:
procedure TForm2.ListView1Click(Sender: TObject);
var
p: TPoint;
begin
p := Mouse.CursorPos;
if Assigned(ListView1.Selected) then
PopupMenu1.Popup(p.X,p.Y);
end;
Habe das jetzt so gemacht, nun öffnet sich das Popup, aber immer beim Linksklick. Soll aber beim Rechtsklick sich öffnen. Muss ich da ein anderes Event nutzen?
Edit //
So habe ich es jetzt gelöst, falls es eleganter geht, immer her damit.
Delphi-Quellcode:
procedure TForm2.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p: TPoint;
begin
p := Mouse.CursorPos;
if Assigned(ListView1.Selected) AND (Button = mbRight) then
PopupMenu1.Popup(p.X,p.Y);
end;
Gruß
Micha