Deselektion von ListView-Items bei Rechtsklick vermeiden?

[Bummi]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls;

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

  TForm1 = class(TForm)
    ListView1: TListView;
    PopupMenu1: TPopupMenu;
    mn1: TMenuItem;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TListView }

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

end.

[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!

[Bummi]

das
Form1.Popupmenu1.Popup(p.x,p.y); ist nicht so hübsch, ich war etwas huddelig

Delphi-Quellcode:

If Assigend(Popupmenu) then
  Popupmenu.Popup(p.x,p.y);

ist geschmeidiger

[PeterPanino]

Zitat von Bummi:

das
Form1.Popupmenu1.Popup(p.x,p.y); ist nicht so hübsch, ich war etwas huddelig

Delphi-Quellcode:

If Assigend(Popupmenu) then
  Popupmenu.Popup(p.x,p.y);

ist geschmeidiger

Wieso, das Popupmenü wird doch zusammen mit der Form erzeugt? Wieso sollte die Nachricht erfolgen, bevor das Formular erzeugt wird?

[Bummi]

Das Popupmenü könnte dynamisch ausgetauscht/entfernt werden, TForm1 könnte dynamisch erzeugt werden, ohne dass die "Variable" Form1 verwendet wird etc. Ist wahrscheinlich für Deine Anwendung alles sehr hypothetisch. Mit dem Bezug auf die Property Popupmenu sind die externen harten Referenzen vom Tisch und man könnte es so ähnlich auch in einer Komponente verwenden. (gegf. mit einem inherited bei nicht zugewiesenem Popupmenu o.ä.)