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运行,效果很酷吧!
相关文档:
Oracle性能优化与Delphi代码
刚学了点oracle方面的知识,感觉以前写代码只凭喜好写,完全没有深究缘由,导致在内行人看来,写的都是垃圾代码,现在就把学到的一些东西写出来,也算是给刚入门的朋友一点帮助吧。
以前,写数据库访问代码,感觉很简单,不就是sql语句嘛,所以什么语句都是这样写:
A:
......
近来发现一个Delphi莫名其妙的bug,当使用SetOptionalParam时,不能使用一连串数字的字符串,如'101',注意,是带引号的。在SaveToFile时,就会出现'Invalid field type'的异常,真是百思不得其解!连'001'这种串也不行,去掉引号,直接按数字赋值,则正常。
procedure TForm1.Button1Click(Sender: TObject);
var
  ......
今天心血来潮在自己的电脑上安装了mysql-5.1.41-win32和mysql-connector-odbc-5.1.6-win32。以前,我曾经尝试使用DELPHI6去联接MYSQL但是在网上找很多资料都不很好用;今天突然也想起这个问题就干起回来了。
1. 建立数据库
use mysql;
drop database myDB;
create database ......
delphi中的realAudio ActiveX控件的使用
作者:seeker 日期:2009-04-26
1:{=====================打开=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......