
Delphi
Arbin
这个作者很懒,什么都没留下…
展开
-
DELPHI WM_CopyData 用法
<br />unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Bu原创 2011-03-17 13:20:00 · 2275 阅读 · 0 评论 -
Delphi程序与Chm帮助关联的简单实现
<br /> Chm格式的帮助是从windows98以后才出现的新的格式,与.hlp格式相比,具有更简单的编辑方式、更丰富的画面。它是通过Chm制作工具对网页文件进行编译得到的,所以理论上你可以把帮助文件做的和网页一样漂亮。<br /> <br />最简单的制作方法:先用FronPage制作帮助文件,然后用HTML Help Workshop编译就可以得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。<br /> <br />应用程序中的帮助可分为上下文关联和非关原创 2011-03-18 09:05:00 · 756 阅读 · 0 评论 -
图形化的PageControl皮肤(在delphi和Lazarus环境下都支持)
<br />最近做一个项目,对界面有一定的要求,于是就做了这个小东东,实现起来挺方便的效果也不错,拿出来供大家参考。<br /> <br />上图是最终的效果图。<br /><br />上图是组成TabSheet的图片,更换这些图片可以实现不同的风格效果。<br />下面是源码:<br />unit UnitMain;{$mode objfpc}{$H+}interfaceuses Classes, SysUtils, FileUtil, Forms, Controls, Gr原创 2011-03-30 16:12:00 · 5845 阅读 · 1 评论 -
利用VCLZip实现分卷压缩
<br /> function Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean; //压缩或解压缩文件var ziper:TVCLZip;begin //函数用法:Zip(压缩模式,压缩包大小,压缩文件,解压目录) //ZipMode为0:压缩;为1:解压缩 PackSize为0则不分包;否则为分包的大小 try if copy(UnzipDir, length(原创 2011-04-18 11:20:00 · 1683 阅读 · 0 评论 -
delphi连接mysql不用添加DSN(mysql connector odbc 5.1版)
一、下载安装mysql驱动http://mysql.com/downloads/connector/odbc/二、添加adoconnection,adoquery,使用以下连接字符串http://www.connectionstrings.com/mysql#p31adoconnection的属性ConnectionString填入以下所需要的连接情况对应字符串在软件发布时,把mysql-connector-odbc-5.1.8-win32.msi安装程序一起附带着,先安装驱动,即可正常使用。Local d翻译 2011-04-28 00:07:00 · 5461 阅读 · 1 评论 -
利用TIdHttp实现文件下载的分块断点续传
环境delphi2007 + indy网上有大量利用TIdHttp控件下载并支持断点续传的例子,但在delphi2007环境下运行都不成功。最近应为项目需要编写了一个测试程序,可以成功实现分块断点续传,并支持链接重定向后,自动获得真实的下载文件名。供大家参考。(想修改成多线程下载也只是增加一些逻辑就可以了。)procedure TForm3.RzButton1Click(Sender:原创 2011-04-15 14:47:00 · 7944 阅读 · 2 评论 -
Delphi中StrToDateTime函数TFormatSettings参数的使用
var FSetting : TFormatSettings; DateTime1: tDateTime;begin FSetting := TFormatSettings.Create(LOCALE_USER_DEFAULT); FSetting.ShortDateFormat:='yyyy-MM-dd'; FSetting.DateSeparator:='-'; //原创 2012-03-31 13:15:14 · 34550 阅读 · 8 评论 -
DELPHI使用TClientDataSet时不携带MIDAS.DLL的方法
TClientDataSet人人都喜欢使用。但是,调用TClientDataSet是有代价的,因为你同时也得包含MIDAS.DLL。 能不能使用TClientDataSet又不用MIDAS.DLL呢? 很简单,就是uses一下MidasLib单元! MidasLib单元在Delphi6以及DELPHI的更高版本中才转载 2013-08-12 10:43:22 · 1558 阅读 · 0 评论 -
delphi中ComboBox的DataValue值
<br />procedure TForm1.Button1Click(Sender: TObject);var s : string;begin combobox1.Clear; s := '01'; combobox1.Items.AddObject('北京',TObject(s)); s := '02'; combobox1.Items.AddObject('天津',TObject(s)); s := '03'; combobox1.Items.原创 2011-03-18 09:14:00 · 4042 阅读 · 3 评论 -
Delphi ADO MySQL直接连接方式
1、安装MySQL ODBC Driver。2、设置ADO连接MYSQL的连接字符串:Provider=MSDASQL.1;Password=root;Persist SecurITy Info=True;User ID=root;Extended Properties="DATABASE=clientdb;DRIVER={MySQL ODBC 5.1 Driver};OPTION=0;PWD=root123;PORT=0;SERVER=127.0.0.1;UID=root"原创 2011-03-17 12:03:00 · 7399 阅读 · 0 评论 -
delphi显示jpg、png、gif图片
<br />delphi显示jpg、png、gif图片unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton;原创 2011-03-17 13:31:00 · 8118 阅读 · 0 评论 -
Delphi字符串旋转任意角度
<br />万一的例子<br />//声明:CreateFontIndirect( const p1: TLogFont {字体结构}): HFONT; {返回新字体指针}//TLogFont 是 tagLOGFONTA 结构的重定义:tagLOGFONTA = packed record lfHeight: Longint; {字体高度} lfWidth: Longint; {字体平均宽度} lfEscapement:原创 2011-03-17 13:37:00 · 4144 阅读 · 0 评论 -
delphi 中判断对象是否具备某一属性
<br /> Uses TypInfo; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := 0 to ComponentCount - 1 do if IsPublishedProp(原创 2011-03-17 14:06:00 · 2539 阅读 · 0 评论 -
代码即时高亮源码,Delphi 实现
<br /> 1、配置文件<br /><?xml version="1.0" encoding="utf-8" >< Classify> < Language Name="Delphi"> < Item Name="注释"> < Color>255</Color> < Words>AND</Words> < /Item> < Item Name="注释"> < Color>8388608</Color> < Wo原创 2011-03-17 15:08:00 · 2892 阅读 · 1 评论 -
Delphi 下 VCLZip控件的简单使用
<br />uses VCLUnZip, VCLZip;function ComPressFile(dstFile,srcFile:string):Boolean;var vclzip:TVCLZip;begin Result:=False; vclzip:=TVCLZip.create(nil); try with vclzip do begin try ZipName:=dstFile; Rec原创 2011-03-17 10:59:00 · 8516 阅读 · 0 评论 -
Delphi Spring Framework编程规范(草稿)V0.1
Delphi Spring Framework编程规范(草稿)V0.1 (更新日期:2009-10-28)1. 前言 为保证Delphi Spring Framework项目代码的可读性和质量,特建立本编程规范。本规范仅适用于Delphi Spring Framework各项目成员,大家如有任何意见和建议,请给我留言。2. 所有项目文件、单元文件和示例程序必须包含下列版权声明: {****************************************************************转载 2011-03-17 11:15:00 · 2501 阅读 · 0 评论 -
ClientDataSet的用法
<br /> <br /> TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库驱动程序,基本上能满足单机"瘦"数据库应用程序的需要。<br /> <br /> 1.TClientDataSet的基本属性和方法介绍<br /> <br /> 1).FieldDefs: 字段定义列表属性<br /> <br /> 开发者可通过单击属性编辑器中该属性编辑按钮原创 2011-03-17 11:29:00 · 1126 阅读 · 0 评论 -
DELPHI 数据库心得
TField对象的SetText和GetText事件处理函数使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题TSimpleDataset/TClientDataset对象的Aggregation使用TDataset对象的Aggregate属性可以来计算客户端数据集中数据的总计数值、平均值或是计算最大值和最小值。使用TBookMark来标记记录书签, 访问数据集中的数据通过使用TBookMark以及TDataset对象的 BookMark 属性,原创 2011-03-17 11:36:00 · 2730 阅读 · 0 评论 -
Delphi各个版本和发展历史
Delphi,是Windows平台下著名的快速应用程序开发工具(Rapid Application Development,简称RAD)。它的前身,即是DOS时代盛行一时的“BorlandTurbo Pascal”,最早的版本由美国Borland(宝兰)公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展,此产品也转移至Embarcadero公司旗下。Delphi是一个集转载 2012-04-23 20:24:26 · 23133 阅读 · 0 评论