Kontext Menü für TListView

[Amicello]

Ok.. hat sich erledigt Falls sonst wer soetwas braucht:

1. OnMouseDown Handler

Code:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var   lv: TListView;
   li: TListItem;
        
begin   if Button <> mbRight then exit;
        lv := TListView(Sender);
   li := lv.GetItemAt(X,Y);
   lv.Selected := li;
end;

2. Menu Item OnClick

Code:

procedure TForm1.Delete1Click(Sender: TObject);
var   li:TListItem;

begin   li := ListView1.Selected;
   if Assigned(li) then li.Delete;
end;