Delphi中建立交叉表

2017年02月06日 89 阅读

Delphi中建立交叉表2010-10-24function CreateTmptab（const AFieldDefs:TFieldDefs）:TDataSet;varTempTable:TatClientDataSet;beginTempTable:=nil;Result:=nil;if AFieldDefs<>nil thenbegin try TempTable:=TatClientDataSet.Create（Applicat...

在Delphi中自定义图标的消息框

2017年02月06日 113 阅读

在Delphi中自定义图标的消息框2010-10-24应用程序在运行当中经常要输出各种即时信息，Delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数MessageBoxIndirect（）就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。此函数在WINDOWS单元里面，文件位于Delphi安装路径SourceRtlW...

在DELPHI中用线程排序

2017年02月06日 108 阅读

在DELPHI中用线程排序2010-10-24在数据处理量很大的情况下，如何在数据处理的同时响应用户操作？Windows95/98和WindowsNT作为多线程的多任务操作系统，其调度单元是线程，即线程是系统分配处理器时间资源的基本单元，所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。DELPHI作为一个优秀的开发平台，对开发多线程应用程序提供了强有力的支持，即可直接利用32位Windows环境提供的Win32API接口函数CreateThre...

在Delphi中使用RC文件中的字符串表

2017年02月06日 97 阅读

在Delphi中使用RC文件中的字符串表2010-10-24wangzhidong首先用Notepad或Resource workshop 4.5建立RC文件。结构如下/****************************************************************************rcdemo.rcproduced by Borland Resource Workshop***********************...

在Delphi中制作平面式列头的Listview

2017年02月06日 102 阅读

在Delphi中制作平面式列头的Listview2010-10-24新建一应用程序,在窗体上放置一个ListView控件和一个按钮控件,然后粘贴以下代码,代码中的有关API和常量参考Windows单元,方法是按是Ctrl键,然后单击鼠标左键unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Std...

Delphi中的布尔类型

2017年02月06日 115 阅读

Delphi中的布尔类型2010-10-24Delphi中预定义的布尔类型有四种：Boolean ，ByteBool，WordBool，LongBool。其中，Boolean 类型是首选布尔类型，其余三种是为其它编程语言和Windows 环境提供兼容性支持。这些布尔类型在使用上大同小异，但如果混淆使用将可能会有意外结果。现做简单辨析供大家参考。一、从资源占用的角度进行比较一项Boolean 类型的数据占用 1字节的内存；一项ByteBool类型的数据占用 ...

Delphi中自制动态显示的控件

2017年02月06日 97 阅读

Delphi中自制动态显示的控件2010-10-24Delphi以其优秀的界面和简单的用法深受广大程序员的喜爱.笔者经过摸索,自制了一个具有动态显示特性的控件。只需在主程序中调用该控件的一个方法即可实现动态显示。在动态显示的同时,为了不影响主程序做其他的事情,笔者采用了比较流行的线程技术。一．方案自制一个父类为TEdit的控件,应该有一个Text属性，能自由地输入要动态显示的内容; 并且有一个MoveShow方法，使的Text的内容能动态的显示。在主程序中...

用delphi读取网卡物理号

2017年02月06日 85 阅读

用delphi读取网卡物理号2010-10-24unit Main;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Nb, ExtCtrls;type TForm1 = class（TForm） Panel1: TPanel; Memo1: TMemo; Panel2: TPanel...

Delphi与DirectX之DelphiX（34）: TDIB.Lightness（）;

2017年02月06日 106 阅读

Delphi与DirectX之DelphiX（34）: TDIB.Lightness（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DX...

Delphi与DirectX之DelphiX（35）: TDIB.Saturation（）;

2017年02月06日 84 阅读

Delphi与DirectX之DelphiX（35）: TDIB.Saturation（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） D...

Delphi与DirectX之DelphiX（36）: TDIB.Contrast（）;

2017年02月06日 92 阅读

Delphi与DirectX之DelphiX（36）: TDIB.Contrast（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXP...

Delphi与DirectX之DelphiX（37）: TDIB.AddRGB（）;

2017年02月06日 97 阅读

Delphi与DirectX之DelphiX（37）: TDIB.AddRGB（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXPai...

Delphi与DirectX之DelphiX（38）: TDIB.Filter（）;

2017年02月06日 99 阅读

Delphi与DirectX之DelphiX（38）: TDIB.Filter（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXPai...

Delphi与DirectX之DelphiX（39）: TDIB.Sharpen（）;

2017年02月06日 89 阅读

Delphi与DirectX之DelphiX（39）: TDIB.Sharpen（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXPa...

Delphi与DirectX之DelphiX（40）: TDIB.Rotate（）;

2017年02月06日 99 阅读

Delphi与DirectX之DelphiX（40）: TDIB.Rotate（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXPai...

Delphi与DirectX之DelphiX（41）: TDIB.SplitBlur（）;

2017年02月06日 95 阅读

Delphi与DirectX之DelphiX（41）: TDIB.SplitBlur（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DX...

Delphi与DirectX之DelphiX（42）: TDIB.GaussianBlur（）;

2017年02月06日 107 阅读

Delphi与DirectX之DelphiX（42）: TDIB.GaussianBlur（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） ...

Delphi与DirectX之DelphiX（43）: TDIB.DoInvert;

2017年02月06日 97 阅读

Delphi与DirectX之DelphiX（43）: TDIB.DoInvert;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXPai...

Delphi与DirectX之DelphiX（44）: TDIB.DoAddColorNoise（）;

2017年02月06日 105 阅读

Delphi与DirectX之DelphiX（44）: TDIB.DoAddColorNoise（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm...

Delphi与DirectX之DelphiX（45）: TDIB.DoAddMonoNoise（）;

2017年02月06日 97 阅读

Delphi与DirectX之DelphiX（45）: TDIB.DoAddMonoNoise（）;2010-10-24 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm）...