文/刘福旺 给单位开发软件，涉及一打印模块，我感到颇有兴趣，就拿来其中的一个小功能模块与读者共享。下面以打印在纸张的矩形框内为例简单介绍： 程序要求： 单击[打印]按钮，把Memo的内容最多分三行打印出来，每行最多能容纳22个三号字， 限定汉字上限为50个汉字。 编程思路：http://www.gaodaima.com/……继续阅读 » 搞代码 7年前 (2018-08-09) 159浏览 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个赞
本程序可以使用热键来将鼠标移动到某一个指定的坐标。是一个定义热键的示例程序。 本程序的热键为小键盘的5，在编辑框内可以指定坐标。 unit MainUnit; interfacehttp://www.gaodaima.com/?p=65733利用热键控制鼠标移动的一个程序_Delphi uses Windows, Me……继续阅读 » 搞代码 7年前 (2018-08-09) 145浏览 0评论0个赞
中国空间技术研究院物资部 史宝军 在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在Delphi中我们可以采 用多种方案来解决这一问题。如运用OLE自动化技术将数据输出到MS-Word、MS-Excel中等,但其中最直接、最本地化的还是使用 Delphi3.0/……继续阅读 » 搞代码 7年前 (2018-08-09) 145浏览 0评论0个赞
用MODEM拨号上网，仍是大多数个人网民选择上网的方式．如果能在我们的应用程序中管理拨号 网络（如Foxmail、Sygate中的拨号功能），无疑将会方便我们的软件用户（不用再切换应用程序， 运行拨号网络），提高我们的软件的友好性从而提高软件的竞争力． 在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络……继续阅读 » 搞代码 7年前 (2018-08-09) 169浏览 0评论0个赞
Delphi中用户可以自己声明属性编辑器在程序设计期间对第三方控件进行设计，对属性编辑器的声明可以在注册控件的时候通过RegisterComponentEditor过程进行定义，具体为： procedure RegisterComponentEditor(C……继续阅读 » 搞代码 7年前 (2018-08-09) 172浏览 0评论0个赞
在Delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（OpenDialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的，因此在使用时不要忘记在Uses中加入单元名。 下面就以一……继续阅读 » 搞代码 7年前 (2018-08-09) 221浏览 0评论0个赞
