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讲解. 在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 ......
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下.那个后门真的写的很好...
Hysia提示你:
这个函数用在对付病毒的程序中效果很好,只有提升自身权限才能KILL掉病毒进程我曾写写出来尝试结束Winlogon进程,导致的结� ......
这样一来，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 2007的这个函数的，参数超多，现在的公司用D7，结果网上一查这个函数，用不成了，原来我用错了函数
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......
