我希望将一个上下文菜单添加到TPageControl的(只是)选项卡中,与选项卡区域不同(例如Delphi提供的文件/页面选项).我知道我可以用TRzPageControl做到这一点,但TPageControl怎么可能呢?
解决方法
如果您不想创建组件,可以始终使用PageControl的OnContextPopup,并根据鼠标位置切换其PopupMenu.
假设您已经创建了2个PopuMenus pmtabs和pmPages,以下代码将在按下标签区域时显示第1个,否则显示第2个:
procedure TForm2.PageControl1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin with Sender as TPageControl do begin if [htOnItem] * GetHitTestInfoAt(MousePos.X,MousePos.Y) <> [] then PopupMenu := pmtabs else PopupMenu := pmPages; end; end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。