Tab加关闭按钮 自定义背景

时间:2013-02-14 03:52:14
【文件属性】:

文件名称:Tab加关闭按钮 自定义背景

文件大小:223KB

文件格式:RAR

更新时间:2013-02-14 03:52:14

Tab加关闭按钮 自定义背景

本控件可以*传播、复制。Varsion 1.0 2009_12_25. 本控件作用: 1、添加了关闭按钮,点击关闭按钮可以关闭当前tabsheet; 2、双击tabsheet,关闭当前tabsheet; 3、改变tabsheet的caption,活动时为蓝色,(Canvas.Font.Color := clBlue;当然你也可以随便改 :) ),不活动时为默认颜色; 4、改变了tabsheet的头部的颜色,活动时为: ImgTabyes.LoadFromResourceName(HInstance, 'TABYES1'); SrcR := ImgTabyes.Canvas.ClipRect; DestR := Rect; Canvas.CopyRect(DestR, ImgTabyes.Canvas, SrcR); 不活动时: ImgTabyes.LoadFromResourceName(HInstance, 'TABNO1'); SrcR := ImgTabyes.Canvas.ClipRect; DestR := Rect; Canvas.CopyRect(DestR, ImgTabyes.Canvas, SrcR); 当然这些你都可以随便改 :),(说明:都是画上去的,不要笑话:)),所有的图像文件存在于Pagecon.res 如果您有什么良好建议或有更好的方法,可以和我联系: //Email:exinju@163.com // //QQ:34117986 // //BLOG:exinju.blog.163.com //


【文件预览】:
HuoPageControl
----HuoPageControl.dcu(3KB)
----Pagecon.res(39KB)
----DEMO()
--------Project1.dof(6KB)
--------Unit1.dcu(5KB)
--------Project1.exe(523KB)
--------Unit1.dfm(151KB)
--------Project1.cfg(386B)
--------Project1.dpr(188B)
--------Unit1.pas(1KB)
--------Project1.res(876B)
--------Unit1.ddp(51B)
----HuoPageControl.res(1KB)
----demo.jpg(30KB)
----说明.txt(928B)
----uHuoPageControl.dcu(8KB)
----HuoPageControl.dpk(564B)
----uHuoPageControl.pas(4KB)

网友评论

  • 不太理想,只是片段,实际用处不大
  • 很一般,只可参考一下。
  • 不全面,一般一般,还是感谢
  • 不是很好..要改进
  • 不怎么好,而且这个思路做起来挺麻烦的,希望能改进下提供更好的
  • 提供了一些灵感。还是感谢
  • 代码不全,页看看了
  • 代码不全,只能看到结果
  • 代码不全啊,便宜没好货啊
  • 片断代码,只是提供一种解决方案的说明,代码不全面