Deselektion von ListView-Items bei Rechtsklick vermeiden?

[PeterPanino]

Zitat von Bummi:

Delphi-Quellcode:

type
  TListView=Class(ComCtrls.TListView)
     Procedure MyRightMouse(Var msg:TWMRButtonDown);message WM_RButtonDown;
  End;

procedure TListView.MyRightMouse(var msg: TWMRButtonDown);
var
 p:TPoint;
begin
   p := ClientToScreen( Point(msg.XPos,msg.YPos));
   Form1.Popupmenu1.Popup(p.x,p.y);
   msg.Result := -1;
end;

Phantastisch, es funktioniert! Du bist ein Genie, vielen Dank!