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运行，效果很酷吧!
相关文档：
技术交流,DH讲解. 今天进入这书第二章 钩子(HOOK).
先说说钩子是什么?
钩子其实就在你环境中加上一层过滤,在特殊情况下就触发钩子回调函数.
比如说我们安装了全局的键盘钩子,那么当我们按动键盘上面的键的时候,钩子的回调函数就会触发.
我们也能看到本来是直来直往的,结果现在中间安装了一层过滤,� ......
这样一来，Delphi使用Webservice和JAVA通讯时，可以将DELPHI的时间直接传给JAVA。从而免去了时间字符串parse之间的消耗，提高的程序效率。
Delphi时间实质就是double类型，整数部分表示天，小数部分表示当天时间，每毫秒为1/86400000。考虑到时区的转换后，JAVA和DELPHI时间之间的转换类如下：
import java.util.Calendar ......
近来发现一个Delphi莫名其妙的bug，当使用SetOptionalParam时，不能使用一连串数字的字符串，如'101'，注意，是带引号的。在SaveToFile时，就会出现'Invalid field type'的异常，真是百思不得其解！连'001'这种串也不行，去掉引号，直接按数字赋值，则正常。
procedure TForm1.Button1Click(Sender: TObject);
var
......
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 ......
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
Str := 'abc';
Ed ......
