本来通过ERP中基础分类档案的每级编码规则控制来展现MSFlexGrid控件的使用技巧,大家只要向控件添加一个MSFlexGrid及Combo控件就好了,源码如下:OptionExplicitPrivateSubCombo1_Click()MSFlexGrid1.text=Combo1.textEndSubPrivat...

[阅读全文]

保存webbrowser中的HTML内容利用IPersist接口可以实现保存HTML到文件，在VB和Delphi下的实现是这样的：VB:DimoPFAsIPersistFileSetoPF=WebBrowser1.DocumentoPF.Save"TheFileNameHere.htm",FalseDelphi:use...

[阅读全文]

序：笔者(airon,softWorker)注意到，在VB6中，要实现文件下载，一般用和方法都是使用第三方控件，比如IE控件呀，winscok呀，但在本文中，不用添加任何控件，也不引用任何object，就可实现文件下载，而且程序不支持文件下载进度，捕获下载错误，激活下载完成事件等。具体方法：1.新建一VB6工程(默认有...

[阅读全文]

单的游戏往往更耐玩，就比如伴我度过高考的赛车游戏：一切都是方块，所谓的赛车也只是四个方块。　　第一步，绘制对象：用函数drawcar()画赛车，drawway(n)画跑道的第n层。　　第二步，接受控制：Form的KeyPreview属性要设为true，在Form_KeyPress函数中通过改变全局变量cx来控制赛车的位...

[阅读全文]

动态数组在VB语言中常能起到出奇制胜的作用。但数组有没有被重新定义或释放，用“isempty”，“isnull”，“=""”等方法都不起作用。所以判断时一般采用侦别错误消息（ONERROR）的方法。下面给出一个非错误侦别的代码，判断动态字符串数组的分配情况：PrivateSubCommand1_Click()Dima(...

[阅读全文]

1.调用diskid.dll实现：OptionExplicitPrivateDeclareFunctionIsWinNTLib"DiskID.DLL"()AsLongPrivateDeclareFunctionReadPhysicalDrive9XLib"DiskID.DLL"(driveIDAsLong,buffer...

[阅读全文]

首先，你的机器里要装有Flash播放软件（你的IE能显示Flash）。IE之所以能显示Flash是安装了由Macromedia公司提供的swflash.ocx控件，我们可以在Win98的$Windows\System\Macromed\Flash中或在Win2000中的$Winnt\System32\Macromed\...

[阅读全文]

用DELPHI开发AUTHORWARE的u32　　函数功能是AUTHORWARE最突出的特征，利用AUTHORWARE提供的系统函数能够完成一些复杂的控制任务。对于一些特殊的任务，AUTHORWARE允许用户自己定义函数，使得程序设计具有更大的灵活性。对于windows系统来说，自定义函数是以动态链接库（DLL）文件存...

[阅读全文]

Delphi中定义了四种布尔类型：Boolean，ByteBool，WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的，一般情况下建议使用Boolean类型。这四种类型的布尔值占用内存的数量如下：Boolean1ByteByteBool1ByteWordBool2Bytes（1Word）L...

[阅读全文]

Delphi中实现汉字拼音声母查询,unit代码如下：unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)ListBox1:TLi...

[阅读全文]

新建一个工程,放上一个TIdHTTP控件，一个TIdAntiFreeze控件，一个TProgressBar用于显示下载进度。最后放上一个TButton用于开始执行我们的命令。代码如下：procedureTForm1.Button2Click(Sender:TObject);varMyStream:TMemoryStre...

[阅读全文]

你的电脑有没有摄像头？看到别人用QQ玩视屏你会不会去想怎么实现的？这里介绍使用DELPHI使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程，如果再加上你的网络编程水平，实现一个视屏聊天就不成什么问题了。看看下面代码的代码：constWM_CAP_START=WM_USER;constWM_CAP_STOP=...

[阅读全文]

unituSingleton;interfaceusesSysUtils;typeESingletonException=class(Exception);TSingleton=classprivate//单例类真正使用的构造函数，此处命名为CreateNewconstructorCreateNew;public//用...

[阅读全文]

procedureTfrxPDFFont.SaveToStream(Stream:TStream);vars:String;b:TBitmap;pm:^OUTLINETEXTMETRIC;FontName:String;i:Cardinal;pfont:PChar;FirstChar,LastChar:Integer;...

[阅读全文]

最近在学习Delphi，感觉Fastreport是个想当不错的报表工具，所以想把自己的查询和研究心得整理一下，供大家参考，我会针对fastreport出个系列专题。一下资料来自网上和自己的整理，如有侵权，请来信告知我使用方法二进行安装，Delphi6.0安装成功；设计中文报表时注意报表页面字符集和字体的选择。1)3.0...

[阅读全文]

//libraryhookprj;usesSysUtils,Classes,Unit1in'Unit1.pas';exportsEnableMsgHook,//只要把这两个函数输出就可以了，DisableMsgHook;//beginend.unitUnit1;interfaceusesWindows,Messages...

[阅读全文]

#include<windows.h>HWNDhwndButton;intcx,cy;LRESULTCALLBACKMainWndProc(HWNDhWindow,UINTnMsg,WPARAMwPrm,LPARAMlPrm){HDCdc;PAINTSTRUCTps;RECTrc;switch(nMsg){caseWM...

[阅读全文]

家都知道，黑白图像是0,1二值的，缩小显示的时候由于n个点转化成1个点会导致图像局部细节信息丢失，比如一条宽度一个象素的细线由于缩小可能就会没有显示，而使用灰度级显示正是能解决这个缩小显示的问题，Windows自带的EastmanSoftware提供的的图像处理可以在你缩小黑白图片的时候使用灰度级来显示，下面我们就来深...

[阅读全文]

DELPHI基础开发技巧◇[DELPHI]网络邻居复制文件usesshellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragO...

[阅读全文]

你先在窗体上放一个TApplicationEvents控件（Delphi自带的）,找到WmMouseWheelMessage事件。下面是我实现的（这个用的是键盘的上下按键消息，你也可以改成滚动条消息）。procedureTMainForm.WmMouseWheelMessage(varMsg:tagMSG;varHan...

[阅读全文]

DELPHI中的快捷方式一览1.SHIFT+鼠标左键先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)2.Shift+F8调试时弹出CPU窗口。3.Shift+F10等于鼠标右键（Windows快捷键）。4.Shitf+箭头选择5.shift+F12快速查找窗体并打开6.F7（步进式调试同时追踪进入子过程）...

[阅读全文]

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Buttons;typeTForm1=class(TForm)UsedThread:TBitBtn;NoU...

[阅读全文]

篇文章是关于如何获取窗口句柄，以及有哪些函数可供使用的简单讨论！可适用于vc、bcb（其他的我没有试，估计可以），本人在bcb环境下试验。首先我会罗列出一些获取句柄的win32api函数，然后简单说说他们的用途！最后说说我是怎么理解和应用的。见笑了！可用的win32api函数：1.HWNDFindWindow(LPCT...

[阅读全文]

摘要在Delphi的VCL库中，为了使用以及实现的方便，应用对象Application创建了一个用来处理消息响应的隐藏窗口。而正是这个窗口，使得用VCL开发出来的程序存在着与其他窗口不能正常排列平铺等显得有些畸形的问题。本文通过对VCL的深入分析，给出了一个只需要对应用程序项目文件作3行代码的修改就能解决问题的方案，且...

[阅读全文]

Delphi是著名的Borland公司开发的可视化软件开发工具。有这样一句话最为经典、贴切的描述了Delphi——“真正的程序员用C，聪明的程序员用Delphi”。很多人把Delphi称为是第四代编程语言，它具有简单、高效、功能强大等特点。和VisualC＋＋比较，Delphi更简单、更易于学习掌握，而在功能上却毫不逊...

[阅读全文]

程序附在最后，这里是一些说明文字：1、为快速写好，没有使用应当使用的控制台方式，而是使用了GUI方式；2、测试的样例是查找包含有四处子串的字符串，四次分别查四个位置。这个在Button1Click方法中完成，它调用Tests来进行具体测试，以被测函数、第几次出现、循环次数为参数；3、Tests依次在一个循环中重复调用每...

[阅读全文]

在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！新建一个工程，命名为PingGUI.dpr，窗口命名为“frmPing”，加入如下组件：lstReplies:TListBox;ICMP:TIdIcmpClient;Panel1:TPanel;btnPing:TButton;edt...

[阅读全文]

单例模式用于限制进程中只有一个某个类的对象，本例的Singleton是一个线程实例，在每一个时钟到达时检测是否到达某个时刻（本例的时刻存于Ini文件中），如果到达则产生一个线程，但是如果在这个线程完成其任务前又到达一个时钟，则有可能会产生多个线程执行任务，以致出现混乱，所以考虑使用Singleton模式解决这个问题（当...

[阅读全文]

1、下载Delphi2005因为Borland公司在中国不出售专业版本，鉴于架构师和企业版的天价，所以只能从网络上下载一个D版的做个人使用。Delphi2005体积比较大，而且Update1也需要CD，所以推荐用BT下载2CD版本。种子的地址如下：http://www.delphifans.com/SoftView/8...

[阅读全文]

functionGetSpecialFolderDir(constfolderid:integer):String;varpidl:pItemIDList;buffer:array[0..255]ofchar;begin//取指定的文件夹项目表//CSIDL_STARTUP:启动SHGetSpecialFolderLo...

[阅读全文]