Delphi与DirectX之DelphiX（22）：TDirectDrawSurface.Noise（）

2017年02月06日 57 阅读

Delphi与DirectX之DelphiX（22）：TDirectDrawSurface.Noise（）2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DXClass, DXDraws, ComCtrls;typeTForm1 = cl...

Delphi与DirectX之DelphiX（23）：TDirectDrawSurface.Blur;

2017年02月06日 55 阅读

Delphi与DirectX之DelphiX（23）：TDirectDrawSurface.Blur;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DXDraws, StdCtrls;typeTForm1 = class（TForm）D...

Delphi与DirectX之DelphiX（24）：TDirectDrawSurface.Blt（）、BltFast（）;

2017年02月06日 66 阅读

Delphi与DirectX之DelphiX（24）：TDirectDrawSurface.Blt（）、BltFast（）;2010-01-27 博客园 万一这两个函数可不是一般的麻烦, 特别是Blt（）; 暂时搞不彻底, 这是初步尝试的例子:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialo...

Delphi与DirectX之DelphiX（25）：TDIB.Blur（）;

2017年02月06日 57 阅读

Delphi与DirectX之DelphiX（25）：TDIB.Blur（）;2010-01-27 博客园 万一DelphiX的组件面板上, 第二个就是TDXDIB;TDXDIB.DIB是TDXDIB的唯一属性（其他是TComponent 固有的）;TDXDIB.DIB属性是一个TDIB对象;TDIB和TBitmap一样都直接继承自TGraphic, 是一个图片容器, 它还有个别名: TDIBitmap;TDIB和TDXDraw.Surface还有 TDX...

Delphi与DirectX之DelphiX（26）：TDIB的主要载体 - TDXPaintBox

2017年02月06日 58 阅读

Delphi与DirectX之DelphiX（26）：TDIB的主要载体 - TDXPaintBox2010-01-27 博客园 万一TDXPaintBox和TPaintBox一样拥有重要的属性 Canvas;现在要关心的是TDXPaintBox另一个主要属性: DIB（TDIB 对象）;在下面学习TDIB时, 应该会大量用到这个TDXPaintBox.虽然叫它TDXPaintBox, 但我觉得它更像TImage, 只是把TImage.Picture换做了...

Delphi与DirectX之DelphiX（27）：TDIB.Spray（）;

2017年02月06日 57 阅读

Delphi与DirectX之DelphiX（27）：TDIB.Spray（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: TDX...

Delphi与DirectX之DelphiX（28）：TDIB.Emboss;

2017年02月06日 68 阅读

Delphi与DirectX之DelphiX（28）：TDIB.Emboss;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: TDXP...

Delphi与DirectX之DelphiX（29）：TDIB.AddMonoNoise（）;

2017年02月06日 55 阅读

Delphi与DirectX之DelphiX（29）：TDIB.AddMonoNoise（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBo...

Delphi与DirectX之DelphiX（30）：TDIB.AddGradiantNoise（）;

2017年02月06日 58 阅读

Delphi与DirectX之DelphiX（30）：TDIB.AddGradiantNoise（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPai...

Delphi与DirectX之DelphiX（31）：TDIB.Twist（）;

2017年02月06日 60 阅读

Delphi与DirectX之DelphiX（31）：TDIB.Twist（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: TDX...

Delphi与DirectX之DelphiX（32）：TDIB.FishEye（）;

2017年02月06日 56 阅读

Delphi与DirectX之DelphiX（32）：TDIB.FishEye（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: T...

Delphi与DirectX之DelphiX（33）：TDIB.SmoothRotateWrap（）;

2017年02月06日 57 阅读

Delphi与DirectX之DelphiX（33）：TDIB.SmoothRotateWrap（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPai...

怎样建立简单的任务栏应用程序

2017年02月06日 59 阅读

怎样建立简单的任务栏应用程序2010-01-27Windows 95和Windows NT 4.0包含一个令人兴奋的特性：任务栏。这个通常位于区域任务条右面的区域能包含小的图标，这些图标能引出大的应用程序或者菜单。本篇文章主要讨论如何使用Delphi建立这样的应用程序。在开始之前，请看下面的需要的接口方面的内容：从技术方面来说，一个任务栏应用程序非常象普通的应用程序，它有一个消息循环，相应Windows的消息来完成相应的功能。Procedure RunTr...

隐藏当前进程

2017年02月06日 63 阅读

隐藏当前进程2010-01-27恢复当前窗口的程序，由于当前进程有可能在全屏模式下运行，所以需要通过指定特定的热键使程序窗口消失，且不出现在任务栏上。下面介绍如何用Delphi实现。主要需要解决两个问题，即隐藏窗口和设定热键。一.隐藏窗口通过API函数GETACTIVEWINDOW获取当前窗口；函数ShowWindow（HWND,nCmdShow）的参数nCmdShow取SW_HIDE时将之隐藏，取SW_SHOW时将之显示。例如：showwindow（ge...

全部窗体可使用鼠标中移动

2017年02月06日 66 阅读

全部窗体可使用鼠标中移动2010-01-27最简单的办法就是"欺骗"系统,让他认为点中的是窗体的标题行unit Dragmain;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;typeTForm1 = class（TForm）Button1: TButton;procedu...

限制FORM的大小

2017年02月06日 60 阅读

限制FORM的大小2010-01-27使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口，当它极大时只占屏幕的一小部分，它是如何实现的呢，请看下面的说明：1）在FORM私有声明部分加上如下一行：procedureMessage :TWMGetMinMaxInfo ）; message WM_GETMINMAXINFO;WMGetMinMaxInfo（ var2）在声明部分加上如下几行:procedure TForm1.WMGetMinMaxIn...

改变元件的视窗式样

2017年02月06日 62 阅读

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

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

2017年02月06日 59 阅读

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

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

2017年02月06日 64 阅读

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

Delphi中的消息处理

2017年02月06日 59 阅读

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