让PageControl的Tab标签响应鼠标右键

最新推荐文章于 2022-08-10 09:41:30 发布
原创 最新推荐文章于 2022-08-10 09:41:30 发布 · 1.5k 阅读 · 1 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#button
博客展示了在PageControl的OnMouseUp事件中的代码，当鼠标右键点击时，获取点击位置的Tab索引并激活对应页面，弹出菜单。同时指出原代码未考虑Tab隐藏情况，若考虑需将nIndex转换为实际Index。

在PageControl的OnMouseUp事件中:

void __fastcall TForm1::PageControl1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (Button == mbRight)
    {
        int nIndex = PageControl1->IndexOfTabAt(X, Y);
        if (nIndex >= 0)
        {
            PageControl1->ActivePageIndex = nIndex;
            TPoint Pos = PageControl1->ClientToScreen(TPoint(X,Y));
            PopupMenu1->Popup(Pos.x, Pos.y);
        }
    }
}

沒有考慮Tab隱藏的情況。
如果要考慮有 Tab 隱藏的情況，需要把 nIndex 轉換為實際的 Index

改变PAGECONTROL控件的TabSheet的标题颜色
热门推荐
yunqian09的专栏_delphi
02-19 1万+
第一种方法：修改标题文字颜色 首先将PageControl的OwnerDraw属性设为TRUE 然后在PageControl的OnDrawTab事件里写代码控制： procedure TfrmMain.PageControl1DrawTab(Control: TCustomTabControl;TabIndex: Integer; const Rect: TRect; Ac
自画收集
daily66的专栏
08-09 1731
季版主，请指教...（非中文系统下显示中文界面）。楼主jbz（虚心求教）2003-02-11 17:42:23 在 C++ Builder / 基础类 提问季版主，感谢您在这个帖子里的指点，     http://expert.csdn.net/Expert/topic/1327/1327619.xml     我已经解决了大部分的界面乱码问题（非中文系统下显示中文界面）。        
修改 PageControl 控件的 TAB 按钮的文字与颜色
编程资料收集与共享交流
08-02 2575
首先将pagecontrol 的ownerdraw 设为true再在它的onDrawTab事件里写如下代码：var TmpRect: TRect; begin with PageControl1.Canvas do begin Brush.Color := $00E6F6F8; Font.Color := clblack; FillRect(Rect); TmpRect
界面美化(来自网络)
data01002的博客
12-05 168
1.PageControl 设置其ownerdrow为true,然后在其DrawTab事件中加入如下代码 procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);var aRect:TRect;be...
如何取消 文件夹在TabX中打开
weixin_44542002的博客
08-10 2万+
最近双击文件夹却打不开，文件夹的右键工具栏顶部多了一个 ‘’在TabX中打开‘’。
C++ Builder初学问与答9
cyp0207的专栏
11-28 620
9.多页组件 68） 问：我觉得C++Builder的组件模板的管理方式很好，在这个模板中通过单击页就可以在各个页之间进行切换，在C++Builder中我应该怎样来实现呢？ 答：我们可以用多页组件来实现，它的好处就是可以在有限的空间中尽量多地存放信息，而且便于把信息分类。就拿组件模板来说吧，在那么小的屏幕中放置了上百个组件，而且并不显得凌乱，这都是多页组件的功劳。 如果窗体上要放置大量的组件，而且
DELPHI常用组件属性说明 组件详解 组件属性
被遗忘的遐想空间
07-24 1754
DELPHI常见属性说明： ALIGN 设置组件对齐（同其父容器）方式 BORDERSTYLE 设置组件边框形状 CAPTION 设置组件标题 CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效 COLOR 设定组件背景颜色 CURSOR 设定鼠标经过组件时光标所显示的形状 ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰
delphi常用属性
u013652791的专栏
02-13 1844
delphi常用属性说明 ALIGN 设置组件对齐（同其父容器）方式 BORDERSTYLE 设置组件边框形状 CAPTION 设置组件标题 CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效 COLOR 设定组件背景颜色 CURSOR 设定鼠标经过组件时光标所显示的形状 ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色
Delphi 常用属性说明
weixin_30512043的博客
09-07 90
Delphi组件的常用事件Onclick——当单击时触发这个事件中的代码Onchange——当改变该组件内容时触发其中的代码Oncreate——当创建时触发这个事件中的代码Onclose——当关闭的时候触发其中的代码OnKeyDown——当按下键盘上的键时触发该处代码OnKeyUp——当松开键盘上的键时触发该处代码OnKeyPress——当有键盘动作的时候触发该处代码OnMouseUp—...
TabControl标签颜色改变
zyx_hawk的专栏
01-04 3480
private void Form1_Load(object sender, EventArgs e)        {            this.tabControl1.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed;            this.tabControl1.DrawItem += new DrawIte
图形化的PageControl皮肤（在delphi和Lazarus环境下都支持）
03-30 6082
<br />最近做一个项目，对界面有一定的要求，于是就做了这个小东东，实现起来挺方便的效果也不错，拿出来供大家参考。<br /> <br />上图是最终的效果图。<br /><br />上图是组成TabSheet的图片，更换这些图片可以实现不同的风格效果。<br />下面是源码：<br />unit UnitMain; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Gr
Delphi 隐藏 TPageControl 的标签方法
全欣 的专栏
04-17 6445
下面是个简单的例子： ..... begin   //先屏蔽掉所有标签   for i := 0 to PageControl.PageCount - 1 do     PageControl.Pages[i].TabVisible := False;//隐藏    //再开启首先要显示的tab页，Tab_Page1:TTabSheet;    PageCon
PageControl 判断选择项
daiafei
06-23 1380
可以利用PageControl的事件OnChange来进行判断到底选择了哪一个选项当有选项卡被选中时，就会触发OnChange事件，并且根据 TabIndex(从0开始计数)属性判断是哪个选项卡被选中，依据这个，我们就可以轻松的判断出到底选择了那个选项示例代码如下：procedure TForm1.PageControl1Change(Sender: TObject);begin   
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值