晕。。 把20楼的改成
procedure TTASKNAV.PopupMenuPopup(Sender: TObject);
begin
// actViewDetail.Visible := not (FFilterType = TFilterType.ftNeedProcess);
// if FFilterType = TFilterType.ftNeedProcess then
// FTaskOperations.FixPopupMenu(Sender as TPopupMenu, ActionList);
// if FFilterType in [TFilterType.ftNeedProcess, TFilterType.ftPost] then
// FTaskOperations.FixPopupMenu(Sender as TPopupMenu, ActionList, FFilterType);
end;
,菜单就只剩下详细和刷新选项了。
我试验过的。
楼主到底想干什么。不起作用肯定是你没保存编译。 |