内容列表
- 在Delphi 中用程序实现自定义窗体的创建和显示顺序（2）
- 在Delphi 中用程序实现自定义窗体的创建和显示顺序（2）
以上方法虽然可以实现动态的有选择地创建和显示窗体，但是有一个致命的弱点，就是程序关闭权限的转移，不能保留Form1的程序关闭权限。怎样真正实现有选择的创建和显示窗体，并且能保持Form1为主窗体呢？方法如下：
把3个窗体都放置在Auto-create forms里面，即
- 分类：Delphi 查阅全文
- 利用Delphi编写Socket通信程序
- 一、Delphi与Socket 计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保
- 分类：Delphi 查阅全文
- TListView组件使用方法
- 引用CommCtrl单元
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始
end;
用LISTVIEW显示表中的信息：procedure viewchange(listv:tlis
- 分类：Delphi 查阅全文
- 用Delphi创建COM+ 应用服务器(三)
-
用Ｄelphi创建COM+ 应用服务器(三)
前面讲了建立com+组件的基本过程，但是还有许多的问题等待着大家去摸索，去发现。在这里我只实现数据库的基本操作，比如：插入，删除，更新,简单查询等等。但愿能起个引导如何实做COM+服务器的作用。基本理论知识这方面的资料也有很多，我建议大家有机会看看李维先生著作的两本书：《Delphi 5.x ADO/M
- 分类：Delphi 查阅全文
- Delphi Shell
-
这其实是个很老的话题在这里写。实在有点没意义。不过还是写写。因为
ShellExecute总还是在经常用到。而且平率比较高。但我不打算重点讲shell
的参数。因为我打算做个面向对象封装。避开不必要参数方面下次调用。
和其它界面API的参数差不多句柄。要实行的操作。程序名。后面两个不重要
的参数。然后是消息。ShellExecute主要实施的操作是。打开。查找。打印。
因
- 分类：Delphi 查阅全文
- 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
-
在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
王大川(WDCZZH)
最近在CSDN上看到两篇关于《DELPHI中存取JPEG文件到SQLSERVER》中的文章之后,觉得其中讲述的方法虽然有可取之处,但颇费时,我这里有更简单的操作方法，而且安全可靠,不敢一人独享,愿发布出来与大家共享。在Delphi7.0+Wi
- 分类：Delphi 查阅全文
- 三层结构的设计模式
-
New Page 1
1
- 分类：Delphi 查阅全文
- 在Delphi 中用程序实现自定义窗体的创建和显示顺序（1）
- 在Delphi 中用程序实现自定义窗体的创建和显示顺序（1）
摘要：本文介绍了一种简单而实用的方法用来动态创建和显示窗体，在Project.dpr中编写代码实现窗体的动态选择创建，同时对 Delphi的窗体创建，应用程序的创建，运行和结束的机制作了深入的探讨。
关键字：Delphi 窗体 创建 显示 动态选择
一． 问题的提出
在Delphi 中我
- 分类：Delphi 查阅全文
- 通过实例看VCL组件开发全过程（四）
- （接上文）
四、组件属性编辑器和组件编辑器：
通过上面的努力我们的组件似乎已经比较完美了，可我们也忽略了一些重要的细节和一些有趣的事情，这一篇我们将研究两个很有用的组件特性：
在之前开发组件核心功能时我们曾设置了两个属性BeginTime和WakeTime，他们都是字符串型的属性，然而他们所要表示的却是时间类型，这样就很有可能使组件使用者错误的编辑属性并导致转化字符串到时间时出错（当然这里只
- 分类：Delphi 查阅全文
- 在Delphi中自己建立交叉表
- 经常在CSDN上查阅名位大侠的文章，得益不少，近期因做一个项目，需要用到交叉表，报表上倒是有，但客户要求在Grid上能操作，没有办法，只好自己写了一段代码用于普通查询到交叉表的实现，不敢独享，故上传，望能抛砖引玉，请名位大侠不吝指教。
function CreateTmptab(const AFieldDefs:TFieldDefs):TDataSet;va
- 分类：Delphi 查阅全文
- IE 代理服务器设置程序实现
-
本文其实.没有什么价值.写出来也是处于好玩.因为.最近闲的要命.所以总喜欢去些BBS聊天室之类的地方打发时间可是.突然发现这些地方总是喜欢记录IP真是麻烦.别人一跟踪马上就查出你的位置.实在是不爽.所以.就只好设置代理服务器.IE的设置是带这个功能的.所以很简单.只要设置就可以了.不过,实在觉得.那样太简单了.所以就想自己做一个程序实现.可是没什么眉目.不过突然想到腾讯的浏览器也有
- 分类：Delphi 查阅全文
- 软件试用期及试用次数控制（附部分关键代码）！
- 其实网上已经有不少现成的软件，它们可以帮你做到一些共享软件的时间控制，比如试用30天，试用100次等。前些天给台湾人写的软件现在需要要一个试用版，由于是繁体，想用网上已有的软件<<幻影加密系统>>来做，但在繁体下一运行就把机子搞死了，害得我新装了繁体2000。后来想想还是自己写算了。 对方要求试用90天，150次。本来也想用时间同步的方法来实现（以
- 分类：Delphi 查阅全文
- 通过实例看VCL组件开发全过程（二）
- （接上文）
组件的代码由于假设你已经熟悉delphi开发（它和一般开发没什么不同），我们就直接贴出来并加上适当的注释：
unit Clock;
interface
uses
SysUtils, Classes, Controls, StdCtrls,ExtCtrls;
type
TState=
- 分类：Delphi 查阅全文
- 通过实例看VCL组件开发全过程（三）
- （接上文）
三、添加组件图标、注册组件的属性类别：
在前面的文章中我们已经完成了组件的基本功能的开发。但是遗憾的是一但你安装了组件包，你会发现组件显示在delphi组件页中的图标并不能清楚的说明我们组件的功能（由于我们的组件继承自TcustomLabel，图标是一个默认的delphiVCL的图标，如果组件继承自其它已经出现在组件面板中的组件，图标还会和已有组件一样！）。显然一个好的组件特别是一
- 分类：Delphi 查阅全文
- 通过实例看VCL组件开发全过程（一）
- 通过实例看VCL组件开发全过程
这篇文章算是对我前段时间学习的一个学习总结，以及对自己学习过程的一个回顾。本文通过一个简单的例子来尽可能的展示VCL组件开发的各个方面，本文针对即将学习组件开发的初学者，如果你已经熟悉组件开发或认为本文内容过于基础简单，那么本文对你毫无用处。阅读本文，假设你已经熟悉delphi的普通程序设计以及vcl的结构层次，还有一些重要的关键字：pu
- 分类：Delphi 查阅全文
- Delphi代码创建形式规范
- Delphi代码创建形式规范
本规范的目的：给自己的代码一个统一而标准的外观，增强 可读性，可理解性，可维护性本规范的原则：名称反映含义,形式反映结构
1、单元风格2、各区风格3、语句风格4、命名规则参考：Borland官方Object P
- 分类：Delphi 查阅全文
- TListView组件显示文件夹中的文件
- procedure GetDirectories(list: TlistView; Directory: string; Item: Tlistitem; IncludeFiles: boolean);varSearchRec: TSearchRec;begin list.Items.BeginUpdate;//准备更新 list.Items.Cle
- 分类：Delphi 查阅全文
- 2003年Delphi Informant杂志读者选择奖
- 2003年Delphi Informant杂志读者选择奖（Delphi Informant Magazine Readers Choice Awards 2003）
重新洗牌作者：Jerry Coffey
去年读者选择奖的结果似乎表明，在历经多年波动之后，Delphi第三方工具市场的发展速度大大减缓。例如，在去年25个类别中，有19项仍由前一年的获奖者再次赢得。
然而，TurboPower
- 分类：Delphi 查阅全文
- 代码重构——之获得封装性DELPHI编码实例
- 代码重构——之获得封装性DELPHI编码实例
代码重构是获得结构良好的方法，通过重构，我们在保持功能不变的情况下，改善代码的质量，提高代码的复用程度。下面是一个获得改善代码质量和获得封装性的一个具体的例子。（例子使用DELPHI）
代码功能:
给数据集设(TClientDataSet)置过滤器，用户可以
- 分类：Delphi 查阅全文
- tlistview使用--拖放操作
- 下列程序是本人在软件开发过程中根据用户操作上的方便，写的一个小过程，主要实现了向listview控件中拖放文件功能，其源代码如下：
procedure tyanzheng.AppMessage(var Msg: TMsg;var Handled: Boolean); varnFiles, I: Integer;ListItem: TListItem;beginif (Msg.message =
- 分类：Delphi 查阅全文