改变元件的视窗式样

2016年07月27日 43 阅读

改变元件的视窗式样2010-01-27CreateParams方法用来设定元件的视窗式样及其它必须传递至CreateWindowEx API的参数。要改变元件的视窗式样，例如增加或拿掉元件的垂直卷轴只要改写CreateParams方法：procedure TMyControl.CreateParams（var Params: TCreateParams）;begininherited CreateParams（Params）;if IWantAScroll...

在Delphi的DBGrid中插入其他可视组件

2016年07月27日 47 阅读

在Delphi的DBGrid中插入其他可视组件2010-01-27Delphi提供了功能强大的DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid...

使用DELPHI实现文本文件显示和声音同步

2016年07月27日 48 阅读

使用DELPHI实现文本文件显示和声音同步2010-01-27在一些语言教学软件中，经常使用文本显示和声音同步播放，我们可以用DELPHI实现之。一、材料的制作首先，我们选择几篇文章，这里我们选择马丁路德金、林肯和里根的演说，每一篇文章分为若干句，在制作声音文件时，记下每个句子的开始时间和结束时间，然后将其记到一个数据表中，这个表有如下字段：NO、TEXT、STARTTIME,分别表示每句序号、内容、开始时间。二、界面的制作在DELPHI中创建一个新工程，...

Delphi中的消息处理

2016年07月27日 47 阅读

Delphi中的消息处理2010-01-271、windows的消息驱动体系在windows系统中，消息传递是实现对乡间通信和控制的主要手段。可以额系统都以消息驱动的方式工作。系统中发生的用户输入操作、显示信息的改变、系统环境参数变化等所有时间都以系统定义消息的形式出现在相关的应用程序和窗口。所以程序设计的主要任务就是为这些消息的处理设计代码。在应用程序中，发送者可以通过发送消息要求接收者完成相应的处理。当程序运行时，windows系统为每个应用程序实例建...

Delphi中建立交叉表

2016年07月27日 45 阅读

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中自定义图标的消息框

2016年07月27日 43 阅读

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

在DELPHI中用线程排序

2016年07月27日 49 阅读

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

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

2016年07月27日 48 阅读

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

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

2016年07月27日 51 阅读

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

Delphi中的布尔类型

2016年07月27日 45 阅读

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

Delphi中自制动态显示的控件

2016年07月27日 50 阅读

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

用delphi读取网卡物理号

2016年07月27日 45 阅读

用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（）;

2016年07月27日 49 阅读

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（）;

2016年07月27日 50 阅读

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（）;

2016年07月27日 102 阅读

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（）;

2016年07月27日 50 阅读

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（）;

2016年07月27日 49 阅读

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（）;

2016年07月27日 44 阅读

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（）;

2016年07月27日 48 阅读

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（）;

2016年07月27日 48 阅读

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...