随笔分类 -  Delphi

如何利用电脑为自己更好地打工成了目标之一，因现实问题，选择了业界曾传言的聪明人都选择的工具（Delphi）
Delphi窗体创建释放过程及单元文件小结（转）
摘要：Delphi窗体创建释放过程及单元文件小结Delphi中的窗体，有模式窗体与非模式窗体两种。两种窗体的调用方式不同，模式窗体使用ShowModal显示，非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的，你不能把焦点从模式窗体转到其他窗体上。而非模式窗体则没有这种限制，你可以从一个非模式窗体切换到另外一个非模式窗体上。两种窗体的区别仅仅在调用的方式上有区别。 窗体的创建：当使用Delphi的IDE New一个窗体后，在Project1.dpr文件中，会出现一句Application.CreateForm(TForm2, Form2);意思是当程序启动的时候会创建TF 阅读全文
posted @ 2013-10-25 14:24 客栈老人
关于 Delphi 中的Sender和易混淆的概念（转）
摘要：///////////////////////////////////////////////////////Delphi 中Sender对象的定义/////////////////////////////////////////////////////1.Sender的定义： 每一个事件处理里面至少都有一个Sender参数。比如： procedure TForm1.Button1Click(Sender:TObject); begin ... end; Sender的含义就是代表调用TForm1.Button1Click这个过程的控件.由于Sender是TObject,所以任何object都 阅读全文
posted @ 2013-10-13 23:56 客栈老人
双色球缩水软件——双色熊猫V1.0
摘要：为了提高双色球缩水效率和准确率，作为双色球爱好者的我也尝试自己编写开发了一个双色球投注、分析、缩水的软件——双色熊猫彩投宝。效果如图：工程文件：pPanda.dprView Code program pPanda;uses Vcl.Forms, uSsqPanda in 'uSsqPanda.pas' {frmSSPanda}, uDataModule in 'uDataModule.pas' {dmMain: TDataModule}, uAnalysis in 'uAnalysis.pas' {frmAnalysis}, uUpdateWai 阅读全文
posted @ 2012-07-22 13:19 客栈老人 阅读(2857) 评论(2) 推荐(0)
条码批量制作打印系统
摘要：在图书管理系统中，碰到许多重复条码、没有条码的情形，所以为了自己快速制作打印出二维条码（CODE39），所以编写了这个自定义条码制作打印工具。。。工程文件program pCodeMaker;uses Forms, uCodeMaker in 'uCodeMaker.pas' {frmCode39}, BuildCode in 'BuildCode.pas';{$R *.res}begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(T 阅读全文
posted @ 2012-06-09 14:08 客栈老人 阅读(689) 评论(0) 推荐(0)
图书管理系统
摘要：为了方便单位的图书管理，买了个条码扫描仪，写了一个简便的图书管理系统，一个二维条码批量制作打印工具（详见：http://www.cnblogs.com/boltwolf/archive/2012/06/09/2543058.html）。。。工程文件：主单元文件View Code unit uFrame;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, ImgList, ToolWin, ActnList, ud... 阅读全文
posted @ 2012-06-09 11:25 客栈老人 阅读(6573) 评论(0) 推荐(0)
通用EXCEL清册比对合并
摘要：信息化时代，办公电子化已成了每个部门单位不可或缺的组成部分，其中也免不了要经常使用微软的EXCEL电子表格，通过对电子表格的灵活运用，极大方便和提高了办公效率。在具体工作中，经常会碰到两张电子表格的比对或合并问题。即你所需要的信息往往是在两张不同的表格中。如果要手工把两张表格的内容根据某个关键字段比对或合并在一起，将会消耗您大量宝贵的时间和精力。为此，作者专门编写了一个通用的EXCEL清册比对合并软件，来提高效率，并把它分享给每一位需要的朋友。大家如果在使用中发现问题或有更好的建议可以联系QQ：175624411，或来信EMAIL：zjdyzqh@163.com，我将尽力予以吸纳改善该软件系. 阅读全文
posted @ 2011-07-16 13:08 客栈老人 阅读(648) 评论(0) 推荐(0)
QQ四国军旗刷分外挂开发
摘要：作为一名四国军旗的爱好者，军旗也陪伴我一起度过了许多时间，让我不至过于无聊、郁闷。。也因此对她产生了不一般的感情。。于是乎有了下面的进一步接触过程（研究写刷分软件）。。。效果图：一、数据准备QQ四国军旗刷分外挂数据准备 ——BlackSnake 2011.06.191. 游戏版本号：（进入游戏时的窗口标题）QQ游戏-四国军旗角色版 2.1 Beta06 Build0202. QQ号地址：（用CE内存查看器获得） 004C7BE0 或004945203. 座位号内存地址：（用CE内存查看器获得） 004C7BEC 或00C54579 （下（蓝）、左（绿）、上（紫）、右（黄） 分别对应0、1、2. 阅读全文
posted @ 2011-06-19 18:41 客栈老人 阅读(5190) 评论(1) 推荐(0)
屏保自己做
摘要：因需要根据不同星期自动调用不同屏保图片，自己动手做了一个代码如下：//主工程文件program scrsave;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.Title := '横店屏保一'; Application.CreateForm(TForm1, Form1); Application.Run;end.//单元文件unit Unit1;interfaceuses Windows, Messages, SysUtils 阅读全文
posted @ 2011-06-07 16:46 客栈老人 阅读(687) 评论(0) 推荐(0)
查找当前所有顶级窗口
摘要：有时常需要查找当前有哪些窗口打开着，所以先用一种方法写下来：效果：//工程文件program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.Run;end.// 单元文件unit Unit1;interfaceuses Windows, Messages, SysUti 阅读全文
posted @ 2011-06-06 21:16 客栈老人 阅读(485) 评论(0) 推荐(0)
居民身份证升位计算器
摘要：关于居民身份证从15位升到18位，其实是有一个国家标准的，所以就依此做了个计算器。。。效果：////工程文件program Project1;uses Forms, Unit1 in 'Unit1.pas' {frmMain};{$R *.res}begin Application.Initialize; Application.CreateForm(TfrmMain, frmMain); Application.Run;end.//单元文件unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Class 阅读全文
posted @ 2011-06-06 20:38 客栈老人 阅读(6378) 评论(0) 推荐(0)
屏保显示页面控制
摘要：因需要做一个特色屏保，安装在每位员工的电脑上运行，同时为在一定程度上防止职员随意更换其它屏保，特做一个关于屏保显示页面控制的小程序。。。。Delphi代码如下：显示效果：//工程文件program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;end.//单元文件unit Unit1;interfaceuses Windows, Mess 阅读全文
posted @ 2011-06-06 20:23 客栈老人 阅读(304) 评论(0) 推荐(0)