易截截图软件、单文件、免安装、纯绿色、仅160KB

coolbar让你的delphi应用程序更酷

曹祖权
  工具条是程序员喜欢采用的组件,它具有简明直观的外形,能够方便用户执行最常用的功能。如果你使用delphi3编程,那么本人向你推荐coolbar组件。它是一种功能更为丰富的工具条,用它可以使多个传统的工具条、编辑框、组合列表框、图像甚至更多的组件集成到一个统一的coolbar中,使得应用程序窗口更为紧凑、界面更美观、操作更方便。应用coolbar的典型范例有微软的ie、win98的资料管理器等等。那么coolbar怎样实现呢?让我们来制作一个简单的coolbar。
  1.首先规划好你的coolbar的结构,如背景图像、分几层、各个层次分别放置何种对象等。本例中第1、2层分别放置两个toolbar对象,第3层放置一个edit对象。
  2.新建一个工程,在窗体中放置一个coolbar1对象,切换到属性窗口,单击属性bitmap栏的省略号小按钮,设置coolbar1的背景图像。
  3.用右键单击窗体中的coolbar1对象,在弹出的快速菜单中选择“bands editor”菜单项,激活“editing coolbar1.bands”窗口,单击add按钮,增加3个tcoolband,在属性窗口中显示的名称分别为coolbar1.bands[0]、coolbar1.bands[1]、coolbar1.bands[2]。
  4.选择coolbar.bands[2],在左侧属性窗口中修改text属性为email。text属性指定了该tcoolband的标题内容。请注意,字符串email后跟了两个空格,以便和将要设置的edit1对象分开一定距离。由于第1、2个tcoolband中放置的是toolbar,所以可设置其标题内容为空。
  5.按常规在窗体上增加两个工具条对象toolbar1、toolbar2,并增加各自的按钮及图像,修改它们的属性align为altop,属性autosize为true,属性edgeborders为[],即没有边框线,属性wrapable为false。设置属性wrapable为false,可以在把一个tcoolband拖拽到一层进行合并时,保持coolbar高度不变,否则,coolbar的高度将会变大,从而占据屏幕很大一部分。
  6.在窗体中增加一个edit1对象。
  7.设置coolbar1.bands[0]的属性control为toolbar1,coolbar1.bands[1]的属性control为toolbar2,coolbar1.bands[2]的属性edit1。
  8.设置coolbar1的属性autosize为true。
  这样,一个简单coolbar就制作完成了,按f9运行,效果很酷吧!


相关文档:

Delphi + Asm TBits类的学习

技术交流,DH讲解. 在D2010的classes中有个TBits类,这个类主要是位操作的. TBits = class
private
FSize: Integer;
FBits: Pointer;
procedure Error;
procedure SetSize(Value: Integer);
procedure SetBit(Index: Integer; Value: Boolean);
function GetBit(Index: Integer): Boole ......

DELPHI开发中好用的快捷键(D2007版)

DELPHI用得不太多,加上脑筋不好使,就记一下最常用对开发效率很有帮助的几个:
Ctrl+鼠标左键:查找定义
Ctrl+Shift+↑:上一操作与其正好相反,由定义查找实现
Ctrl+Shift+空格:在一个函数没有输入参数的括号内按下此快捷键时会出现函数相关参数的提示信息,包括重载的所有函数的信息 ......

Delphi中ADO异步执行方式

     当A D O开始处理数据后,应用程序必须等到A D O处理完毕之后才可以继续执行。但
是除了同步执行方式之外, A D O也提供了异步执行的方式,允许当A D O处理时,
应用程序仍然能够先继续执行。而当A D O处理数据完毕之后, A D O会以事件的方
式通知应用程序,此时应用程序可以再根据A D O执行的 ......

Delphi中实现全角转半角

Delphi中实现全角转半角
function SbctoDbc(s:string):string;
var
 
nlength,i:integer;
  str,ctmp,c1,c2:string;
 
{
 在windows中,中文和全角字符都占两个字节,
 并且使用了ascii chart  2 
(codes  128 - 255
)。
全角字符的第一个字节总是 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号