开发组件的过程，其实就是从某一对象派生出一个新的对象，并且为该对象声明新的属性、方法和事件。下面我将通过制作一个标题栏按钮来讲述如何制作组件。 标题栏按钮组件TTitleBarButton以TComponent为直接继承对象，它是一个可以在窗体标题栏上显示按钮的组件，……继续阅读 » 搞代码 7年前 (2018-08-09) 179浏览 0评论0个赞
由于本机系统时间不准确，所以决定从Internet 时间服务器获取标准时间来校正 系统时间，说干就干。 程序设计步骤如下： 1、 新建一个工程； 2、 在窗体上放一个TEdit控件和一个TClientsocket（在Internet页下）控件。TEdit用来显示取得的格林尼治……继续阅读 » 搞代码 7年前 (2018-08-09) 145浏览 0评论0个赞
No.1 Delphi中的Include文件 begin ShowMessage({$I File1.txt}; //有错吗？ ShowMessage(UpperCase({$I File1.txt}); end; //新建一个文本文件“File1.txt”、内容填写为:“’Hell……继续阅读 » 搞代码 7年前 (2018-08-09) 171浏览 0评论0个赞
本文简述编程制作Windows拖动菜单的基本方法，并用Delphi 5.0给出示例代码。 其实在Windows编程中制作拖动菜单的基本方法比许多人想象的要简单的多（这是本人在Microsort网站上查阅了大量资料编程测试后得出的结论），前段时间本人在网上看到一些另类实现方法，甚觉不妥。 拖动菜单制作主要使用的消息和函数是一个在Win98以后版本才有……继续阅读 » 搞代码 7年前 (2018-08-09) 199浏览 0评论0个赞
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CommDlg; type TForm1 = class(TForm)http://www.gaodaima.com/……继续阅读 » 搞代码 7年前 (2018-08-09) 293浏览 0评论0个赞
自动化是从一个应用程序内部自动控制另一个应用程序的方法,例如下面的代码. procedure CreateNewWord; var WordObj: Variant; begin WordObj := CreateOleObject(‘Word.Basic’); {此函数声明于Co……继续阅读 » 搞代码 7年前 (2018-08-09) 121浏览 0评论0个赞
[原创] 计世商情网 徐辉 最近笔者在制作一安装程序时遇到需动态建立虚拟目录的问题，通过在网上查找相关资料，发现有很多关于用Delphi来建立IIS的虚拟目录的例子，但都是需要加载类库，不容量调试，且对类库知……继续阅读 » 搞代码 7年前 (2018-08-09) 165浏览 0评论0个赞
最近在做项目时遇到将图像列表(TImageList)中一系列的图像保存到指定的文件或二进制流中，以便在需要时进行动态恢复的情况。于是在Delphi的帮助中查找TImageList类相关的属性、方法，遗憾的是Delphi在TImageList中并未提供SaveToFile和SaveToStream方法，所以针对TImageList目前的限制，必须采取其它……继续阅读 » 搞代码 7年前 (2018-08-09) 153浏览 0评论0个赞
陶占红 用Delphi开发C/S结构的oracle数据库软件时，为提高效率，通常将大批量的数据处理交给后台存储过程来完成。由于Delphi需通过BDE才能操作和处理各种数据库文件，这样不仅效率低，而且存在一定局限性，所以考虑采用第三方工具DOA来提高交互效率，方便前后台信息的传递。 DOA(即Direct Oracle access的缩写……继续阅读 » 搞代码 7年前 (2018-08-09) 271浏览 0评论0个赞
在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？例如，有一段人事档案资料document.txt，内容如下： 张强,25,助理工程师, 王宏,30,工程师, &n……继续阅读 » 搞代码 7年前 (2018-08-09) 195浏览 0评论0个赞
