捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
MdiJvTabBar v1.0
关键字：MdiTab JvTabBar 窗口标签
来　自：原创
平　台：Win2k/XP/NT,Win2003,Vista 下载所需：0 火柴
深浅度：中级 完成时间：2008/1/13
发布者：senfore 发布时间：2008/1/13
编辑器：D2007 语　　种：ENGLISH
分　类：切换组件 下载浏览：1703/15572
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
继承自TJvTabBar的2个MDITabs自动管理控件

1.使用Addform(AForm: TForm; AImageIndex: Integer; AHint: string);加入要管理的窗口，并创建窗口标签
2.使用Updateform(AForm: TForm; AImageIndex: Integer; Ahint: string);
来实时更新标签
3.不需要自己释放标签，在某个窗口释放后，其对应的标签会自动删除
4.AutoVisible属性用于设置标签的可见，如果AutoVisible为True，那么当标签数量为0时，标签栏会自动隐藏，当重新加入标签时，标签栏会重新显示出来

控件包文件说明：
   TBXMdiJvTabBar为TBX风格标签，需要TBX 2.1B的支持，而且最好使用JvmbTBXTabBarPainter来作为Painter。JvmbTBXTabBarPainter包含在TBX JVCL Lib v1.6控件包中，该控件包可以在http://mxs.bergsoft.net/index.php?p=3下载到。
   TMdiJvTabBar跟TBXMdiJvTabBar相同功能，只是去掉了对TBX的依赖功能

编译环境：
  1.在Delphi2007下编译通过
  2.如果需要使用TBXMdiJvTabBar，必须安装TBX 2.1B
  3.TBXMdiJvTabBar和TMdiJvTabBar都需要JVCL的支持，请下载最新的JVCL库，我使用的20071229的版本。

其他使用例子：响应右键菜单和鼠标双击标签关闭该标签
procedure TfrmMain.TabBarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  inx: integer;
  p: TPoint;
begin
  inx := TabBar.Tabs.IndexOf(TabBar.TabAt(X,Y));
  if (inx > -1) and (ssRight in Shift) then
  begin
    GetCursorPos(p);
    tpmTabsMenu.Popup(p.X, p.Y);
  end else
    if (inx > -1) and (Button = mbLeft) and (ssDouble in Shift) then
    begin
      TabBar.Forms[inx].Close;
    end else
      if (ssRight in Shift) then
      begin
        GetCursorPos(p);
        tpmTabsMenuMain.Popup(p.X, p.Y);
      end;
end;

如果你使用了以上控件，请保留单元内作者信息，谢谢。
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论11条 当前显示最后6条评论
jemsn 2008/1/15 21:39:28
有没有 fro D7 的？
qsmile 2008/1/16 8:59:53
有沒有支持 Unicode 的 TBX
bos 2008/1/16 13:36:53

closeall方法有问题
应该是这样
  n:=TForm(Owner).MDIChildCount;
  for i:=n-1 downto 0 do begin
    TForm(Owner).MDIChildren[i].Close;
  end;
senfore 2008/1/16 14:53:09
有支持Unicode的TBX，需要TNT 2.3的支持，下载地址是http://club.telepolis.com/silverpointdev/sptbxlib/
snakejiao 2008/2/1 16:09:35
请为MdiJvTabBar 画个关闭按钮吧~模仿一下Raize v4 的PageControl吧
有层次感.谢谢..最后是独立的控件,不需要安装其他的库,谢谢..
puraoxiang 2008/9/15 14:22:28
这是什么控制包，这么好看！！
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表