在网上看到不少系统托盘的控件，有的写的东西太多，用不上，但大家似乎都没有解决一个问题，那就是单击和双击怎么处理的问题，所以自己也写了一个贴出来。希望大家能多提意见，如果哪个地方有不对的地方请指出，但千万别骂。 这个控件很简单，可以用 Show 的方法显示图...

2008-04-09 04:24:29

一个简单的投票机器人 昨天帮人报一个参加日语能力考试的朋友报名，无奈名额已满，需要不断重试碰运气。手工操作很麻烦，就决定做一个机器人试试，于是翻出了去年做的一个投票机器人。（报名机器人另文再写） 那时非典被困在宿舍，做毕设的公司正在参加一个十大新兴技...

2008-04-09 04:24:26

一、Thread类的创建： unit Thread; { 线程类的创建 编译环境: Windows 2003 Sever Delphi 7.0 Enterprise } interface uses classes,sysutils,StdCtrls; type TB = class(TThread) private i :integer; Fedt :TEdit; procedure Update ; public procedure execute;ove...

2008-04-09 04:24:22

时常想 , 如果一个组件能够按自己想要的外观显示 , 那该是件多么 COOL 的事啊 , 这一篇就要来做一个精美外观的组件 , 但是 , 做什么好呢 .Button? 高手突破 有关于自己定义外观的 Button, 以及 CheckBox 等的做法 ,Button 从 CustomPanel 继承 , 重载 Paint 方法来画外...

2008-04-09 04:24:21

作为组件制作的开始，应该了解一些概念，我以为这些概念是非常重要的，将可以作为以后实践的理论基??一 , 组件的简要层次结构。一般情况下， VCL 的组件可以从 Tcomponent 为开始。其最明显的特征就是它的属性可以在设计时通过对象察看器来操纵，另外，他还能拥有其...

2008-04-09 04:24:19

一、BASE64编码的原理 BASE64编码 的原理很简单，其方法是，将输入数据流每次取6 bit（每bit代表1位二进制），不足6bit的补0，这样，每3个8位字节将编码为4个6位字节（3×8 → 4×6）；不满4个字节的以“=”填充。其实这4个六位字节 仍然是8位，只不过高两位被设置为0...

2008-04-09 04:24:16

一个过程，直接调用就可以了！ procedure ChangeDbGridColColor(ojbDbGrid:TDbGrid); var i:integer; begin for i:= 0 to ojbDbGrid.Columns.Count -1 do begin case i mod 3 of 0: ojbDbGrid.Columns.Items[i].Color:=TColor($0023AF82); 1: ojbDbGrid.Columns.Items[...

2008-04-09 04:24:16

{unti AXScript v.1.0 05/28/97 - converted header file for Microsoft ActiveScript. Original conversion of the ActiveScript header by David Zajac ( dzajac@HiWAAY.net ) for Delphi 2.x. Modified by Brian Dupras ( bdupras@dimensional.com ) for Delphi 3.0...

2008-04-09 04:24:13

用Delphi开发的的组件如何使用自己设置的图标呢?它里面又有什么奥秘呢? .组件使用自己的图标要进行以下几步: (1)知晓组件的信息: 我要注册的组件名为TNWTReport,在NWTReport.pas单元中. (2)制作一个和你的组件所在的单元文件同名的dcr文件,这里即为NWTReport.dcr,在该...

2008-04-09 04:24:10

向DBGird添加数据的简单方法，很方便。 with DM.SYSBKSETADOQ do begin Append; FieldByName(''''图书类别'''').AsString:=Edit1.text; post; end; Showmessage(''''添加成功''''); 我的修改/完成做法 if Button2.Caption=''''修改'''' then begin Button2.Caption:=''...

2008-04-09 04:24:09