Klick auf Spaltenheader (TListView) erkennen

[gmc616]

Zitat:

Zitat von Michse

Evtl. könnte man im OnColumnRigthClick ein boolean setzten der im OnContextPopup ausgewertet wird und das poppen des Context-Menüs verhindert. Ob das funktioniert ... ??? :gruebel:

Jupp das funktioniert bei mir. Mach mal hat man die besten Ideen, wenn man's einfach nur aufschreibt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FContextAllowed := true;
  ListView1.PopupMenu := PopupMenu1;
end;

procedure TForm1.ListView1ColumnRightClick(Sender: TObject;
  Column: TListColumn; Point: TPoint);
begin
  FContextAllowed := false;
  Popupmenu2.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
end;

procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Handled := not(FContextAllowed);
  FContextAllowed := true;
end;

:hi:
gmc

[MCXSC]

Stimmt, daran hab ich gar nicht gedacht... :)

Aber so gehts dann auch, THX.