Einzelnen Beitrag anzeigen

Benutzerbild von hitzi
hitzi

Registriert seit: 2. Jan 2003
Ort: Eibau
768 Beiträge
 
Delphi 2010 Professional
 
#1

Popupmenü im Listview Problem

  Alt 21. Feb 2008, 06:22
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;
Thomas
Besucht doch mal http://www.hitziger.net
  Mit Zitat antworten Zitat