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 ... ???
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;
gmc