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中,调用Showmessage后,如何使弹出的对话框在一秒钟后自动关闭,而不用手动去点确定
1:用timer控件的函数
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......
技术交流,DH讲解. IOComp是一套用于工业的图形化控件.
看下怎么在D2010下面安装吧.首先下载地址,来之 盒子,Download Here 解压缩后,需要做的步骤:
1 添加lib path
Tools –> Options –> Delphi Options
将你的解压缩目录添加进来.
2 删除相关PNG单元.
因为2010中 ......
.pas ---- pascal的缩写, 单元原始程式档( unit source files )
.dpr ---- 专案档 ( project files )
.dpk ---- 包裹原始程式档/组件包 ( package source files )
.dfm ---- 表单档 (记录form的内容,除去这个内容就等于删除了form这个表单)
.dcu ---- 是编译好的单元文件.若只有一个dcu文件,则不能看到源代码.
......
今天心血来潮在自己的电脑上安装了mysql-5.1.41-win32和mysql-connector-odbc-5.1.6-win32。以前,我曾经尝试使用DELPHI6去联接MYSQL但是在网上找很多资料都不很好用;今天突然也想起这个问题就干起回来了。
1. 建立数据库
use mysql;
drop database myDB;
create database ......
ADO 使用 ORACLE provider FOR OLE DB 驱动时
调用存储过程需要返回游标时,在连接字符串中增加
PLSQLRSet=1 参数。
存储过程中的游标不需要付初始值
如:
sp1: TADOStoredProc;
sp1.Close;
sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......