DELPHI保护级类成员的应用

2017年02月06日 61 阅读

DELPHI保护级类成员的应用2012-01-15type TStringGridEx = class（TStringGrid）;procedure TForm1.Button1Click（Sender: TObject）;begin if TStringGridEx（StringGrid1）.RowCount > 5 then TStringGridEx（StringGrid1）.DeleteRow（5）;end;这是要在StringGrid中删...

Delphi的命令行参数

2017年02月06日 64 阅读

Delphi的命令行参数2012-01-15说明通过下面的介绍，你将清楚的了解怎样从命今建入Delphi的IDE环境，并了解其详细的参数Delphi的命今行参数对大小不敏感，对于参数 -d /d -D /D在Delphi中取着同样的作用Delphi的执行程序名为Delphi32.exe，以下你可能通过它来使用所有的参数比如：Delphi32.exe /ns /hm（起动一个没有splash窗口，并监控内存的例子）Delphi32.exe –sd...

Delphi支持Vista的UAC机制

2017年02月06日 68 阅读

Delphi支持Vista的UAC机制2012-01-15 博客园 生的伟大活得憋屈Vista提供的UAC机制，是Vista的新增功能之一。它的主要目的是防止对于操作系统本身的恶意修改。如果想对于Vista的系统设置进行改动，必须通过UAC的验证才能够进行。通过这样的手段，大大提供了系统的安全性。关于UAC的利弊，网络上的说法褒贬不一，在这里就不具体讨论了。对于Delphi程序的影响，UAC主要在于以下几点：1、由于UAC机制，Delphi对于系统的操作可...

Delphi中在DLL中封装的VCL窗体Tab键响应的问题

2017年02月06日 73 阅读

Delphi中在DLL中封装的VCL窗体Tab键响应的问题2012-01-15 博客园 Lenic在DLL中的子窗体不会响应Tab按键的，这个时候就需要手动去指定Tab键的操作，但是前提是主窗体要向这个窗体发送一个消息，一个Tab键按下的消息。基本顺序是这样的：1. 主窗体用Hook技术捕获Tab按键并向活动子窗体发送一个Tab键按下的消息2. 子窗体手动定义一个Tab键被按下的处理（需要用到FormKeyDown事件）。3. 移动到下一个焦点的WinAP...

Delphi中在DLL动态链接库中封装VCL的MDI子窗体

2017年02月06日 70 阅读

Delphi中在DLL动态链接库中封装VCL的MDI子窗体2012-01-15 博客园 Lenic不多说了，看代码就应该明白了，曾经我遇到的问题，现在放出来大家共享！这里是工程文件的部分：在DLL中封装MDI子窗体需要重写DLL入口函数，具体代码如下：1var2 DllApp: TApplication;//定义保存原DLL的TApplication对象3 DllScr: TScreen;//定义保存原DLL的TScreen对象45procedure ...

在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格

2017年02月06日 62 阅读

在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格2012-01-15今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:步骤一:把Win32面板上把CoolBar组件加到窗体上步骤二:把Additional面板上的ActionMainMenuBar组件加到CoolBar组件上.（注意一定要放在CooBar 组件上）步骤三:把Win32面板上的PageScrol...

Delphi的时间与字符串函数代码示例

2017年02月06日 72 阅读

Delphi的时间与字符串函数代码示例2012-01-15 博客园 万一SysUtils.StrToDate（）;SysUtils.StrToDateDef（）;SysUtils.TryStrToDate（）;SysUtils.StrToTime（）;SysUtils.StrToTimeDef（）;SysUtils.TryStrToTime（）;SysUtils.StrToDateTime（）;SysUtils.StrToDateTimeDef（）;Sys...

现有Delphi项目迁移到Tiburon中的注意事项

2017年02月06日 59 阅读

现有Delphi项目迁移到Tiburon中的注意事项2012-01-15 峪飞鹰 随着 Embarcadero 8 月 25 号发布 RAD Studio 2009 （Tiburon） 以来（Tiburon 的 RTM 日期可能要延后到 9 - 10 月），随着 Tiburon 全面支持 Unicode，现有的 Delphi / C++ Builder 项目要迁移到 Unicode 下应该注意些什么也成为大家最为关心的问题。Tiburon 对 Unicod...

Delphi中一个极快的正整数排序函数的实现

2017年02月06日 60 阅读

Delphi中一个极快的正整数排序函数的实现2012-01-15 博客园 万一实现原理: 对比二进制位.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Memo1: TMemo;...

用Delphi实现文件下载的几种方法

2017年02月06日 137 阅读

用Delphi实现文件下载的几种方法2012-01-15笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。我把...

Delphi中DBEdit组件使用方法

2017年02月06日 72 阅读

Delphi中DBEdit组件使用方法2012-01-15Delphi的DBEdit组件位于组件板的Data Controls页上，用于编辑数据表当前记录某字段的值。DBEdit组件的主要属性与方法如下：1、主要属性（1）DataSource用于选择数据源，使DBEdit组件通过数据源与数据表连接。当DBEdit通过数据源与数据表连接后，显示数据表的哪一个字段，则是由DataField字段决定的。（2）DataField用于选择数据字段，如果DataFie...

Delphi中的Wrapper设计模式

2017年02月06日 66 阅读

Delphi中的Wrapper设计模式2012-01-15Wrapper设计模式能够把一个类的接口修改成另一个类所需要的接口，然后让本来因为接口不兼容的类能够在一起配合工作。在 Delphi中，为了让两个类能够支持同样的接口，它们必须有同样的祖先类这样才能在其他类调用的时候实现多态性。但是有的时候我们希望两个没有关系的类 能够在一起工作，Wrapper设计模式就能够让一个类wrap部分另一个类的部分接口（当然也可以是全部，看具体的需要而定），从而能够模拟出...

实现Lucas-Kanade光流计算的Delphi类

2017年02月06日 58 阅读

实现Lucas-Kanade光流计算的Delphi类2012-01-15 刘留 Geo.Cra[at]gmail[dot]com}unit OpticalFlowLK;interfaceuses Math, Windows, SysUtils, Variants, Classes, Graphics, unitypes, ColorConv;type TOpticalFlowLK = class private ImageOld, ImageNew: T...

Delphi中如何在一个窗体中嵌入另一个窗体

2017年02月06日 67 阅读

Delphi中如何在一个窗体中嵌入另一个窗体2012-01-15 博客园 yu505Form1uses unit2;procedure TForm1.FormCreate（Sender: TObject）;begin form2 := TForm2.Create（Panel,self）; form2.BorderStyle := bsNone; form2.WindowState := wsMaximized; form2.Parent :...

Delphi中的容器类

2017年02月06日 60 阅读

Delphi中的容器类2012-01-15 陈省 从Delphi 5开始VCL中增加了一个新的Contnrs单元，单元中定义了８个新的类，全部都是基于标准的TList 类。TList 类TList 类实际上就是一个可以存储指针的容器类，提供了一系列的方法和属性来添加，删除，重排，定位，存取和排序容器中的类，它是基于数组的机制来实现的容器，比较类似于C++中的Vector和Java中的ArrayList，TList 经常用来保存一组对象列表，基于数组实现的机...

Delphi中对象解除技巧

2017年02月06日 62 阅读

Delphi中对象解除技巧2012-01-15在Delphi程序设计中，我们需要通过解除建立的所有对象来避免内存泄漏。但是，如果你在程序中不谨慎小心的话，很容易多次解除同一个对象，这将会引起很严重的错误，造成应用程序崩溃，甚至是死机。请看下面的程序：procedure TForm1.Button1Click（Sender:TObject）;var Button2,Button3:TButton;begin Button2:=TButton.Create（...

浅议Delphi中的Windows API调用

2017年02月06日 96 阅读

浅议Delphi中的Windows API调用2012-01-15 天极网 yanghq2000为了能在Windows下快速开发应用程序，Delphi对Windows的控件都进行了很好的封装，这样，我们就可以直接使用Delphi的控件来编写程序，而不用使用格式、调用控制复杂的API来进行开发，为我们节省了大量的开发时间。可有时候这些控件解决不了我们的问题，这个时候我们就不得不使用API了，也就是Windows的应用程序接口。这样，问题也就随之而来了，API...

Delphi中如何取得系统支持的颜色数

2017年02月06日 66 阅读

Delphi中如何取得系统支持的颜色数2012-01-15 monkey 在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常漂亮，但是到了一台只支持16色的计算机上，程序变得非常难看。这就需要得到系统的颜色数。Delphi中如何取得系统的颜色数呢？下面的程序就解决这个问题。function GetSysColorNum:Integer;Var ScreenDc:HDC; ...

一个查看内存数据的Delphi函数

2017年02月06日 52 阅读

一个查看内存数据的Delphi函数2012-01-15 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; pro...

用Delphi编写可被其它语言调用的DLL

2017年02月06日 62 阅读

用Delphi编写可被其它语言调用的DLL2012-01-15在所开以的应用软件中,有时我们对某些文件进行拷贝（如对数据库进行备份、制作安装程序），但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。为此，我曾利用Delphi编制了可提供文件拷贝过程的动态连接库Copy.dll,其输出过程为CopyFile。由于DLL具有简化编程、运行速度快等诸多优点，且不受编程语言的限制，用Delphi编写的Copf.dll同样被VB、VC等面向对象语言进行静态...