Popupmenü im Listview Problem

[hitzi]

Hallo,

gibt es eine Möglichkeit, das Popupmenü im Listview nur bei einem Rechtsklick über den eigentlichen Zellen und nicht über den Spaltenheadern und leeren Bereichen erscheinen zu lassen?

Viele Grüße

[EDIT]Hab eine Lösung zustande bekommen:

Delphi-Quellcode:

var fDontShowPopup : Boolean;
[...]
procedure TfrmMain.lvListColumnRightClick(Sender: TObject; Column: TListColumn;
  Point: TPoint);
begin
  fDontShowPopup := True;
end;

procedure TfrmMain.lvListContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Handled := (lvList.GetItemAt(MousePos.X, MousePos.Y) = nil) or fDontShowPopup;
  fDontShowPopup := False;
end;