易截截图软件、单文件、免安装、纯绿色、仅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开发中好用的快捷键(D2007版)

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

Oracle性能优化与Delphi代码

Oracle性能优化与Delphi代码

刚学了点oracle方面的知识,感觉以前写代码只凭喜好写,完全没有深究缘由,导致在内行人看来,写的都是垃圾代码,现在就把学到的一些东西写出来,也算是给刚入门的朋友一点帮助吧。
以前,写数据库访问代码,感觉很简单,不就是sql语句嘛,所以什么语句都是这样写:
A:
 
......

DELPHI 2007中使用ADO调用ORACLE有返回游标的存储过程


ADO 使用 ORACLE provider FOR  OLE DB 驱动时
调用存储过程需要返回游标时,在连接字符串中增加
PLSQLRSet=1 参数。
存储过程中的游标不需要付初始值
 
如:
  sp1: TADOStoredProc;
 
 
 sp1.Close;
 sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......

VC中调用Delphi的DLL中的回调函数例子

//Delphi部分  
 //回调函数定义
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;  
 //DLL中的导出函数声明
procedure StartCall(param:   TOnMyCallBack(data:pchar; id:Integer);stdcall;  
begin
  ...  
  ...  
end;  
&n ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号