2011年09月_爱在丽江leslex

转载 Delphi 包的设计思想及它与PAS、BPL、DCU、DLL、OXC的关系。

一、Delphi中各种文件的介绍，及其关系。OXC： ActiveX控件。会被安装到某一个组件包DPK中，在Imports中会创建PAS、DCU、DCR三个文件。DLL：动态链接库文件，它的Exports exports既可以写在工程文件里面，也可以写在Unit里面，没

2011-09-30 20:32:23 6223

转载 Delphi 给自定义控件添加属性页

一、基础知识介绍：1、属性编辑器和控件属性的关联函数：RegisterPropertyEditor函数：它用来注册一个属性编辑器，将控件中的一个属性和编辑器关联起来。procedure RegisterPropertyEditor(PropertyType: PTyp

2011-09-30 20:26:31 4213

转载 Delphi DLL动态链接库的初始化和善后工作

一般的DLL不需要做初始化和善后工作，但如果想让DLL在被载入时先作一些初始设定，或者退出时释放资源，则可以用一下三种方法达到目的。第一种方法：利用Unit的Initalization与Finalization这两个小节

2011-09-29 20:30:12 3995

转载 Delphi 各种组件的知识介绍及其安装方法

组件提供的方式不同，安装的方法也不同，下面就目前常见的各种形式的组件的安装方法介绍一下。 1.、DCU文件类型的组件 DCU文件由单元文件（.pas）或者包文件（.dpk）等编译时产生的中间文件，即编译文件（相当.obj文件），

2011-09-29 20:24:23 1586

转载 Delphi 制作自定义数据感知控件并装入包（dpk文件）中（与DBText类似的数据感知控件）

一、基础知识简介：1、包的命名介绍：包的命名没有规则，但是建议遵守包的命名约定：包的命名与包的版本相关，包的名称前面几个字符通常表示作者或公司名，也可以是控件的一个描述词，后面紧跟的Std表示运行期包，Dsgn表示设计期包，然后是版本号。如

2011-09-29 12:50:05 3574

原创 Delphi 把现有的EXE工程转成DLL工程（EXE文件转成DLL文件）

第一种方法：具体步骤：1、生成新的或着打开已经存在的工程文件（DPR）（Project1.dpr）。 2、选择【View】—>【Project Manager】，选中【ProjectGroup】，然后点击【New】按纽新建一个DLL文件； 3、保存DLL文件，修改

2011-09-29 12:38:02 5502

原创 File Not found 'DesignIntf.dcu'或者'Proxies.dcu' 的解决方法

1、File Not found 'DesignIntf.dcu'在Delphi 7~2007下的解决方法：在Library中加入$(BDS)\Lib\ToolsAPI 的搜索路径。2、File Not found 'Proxies.dcu'在Delphi 7~2

2011-09-28 13:38:17 5483

转载 Delphi 正则表达式控件（掩码编辑框MaskEdit）的使用方法

一、基础知识简介：掩码编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入格式。在选用MaskEdit之后，需要为它设计一个输入格式。格式符意义【l和L】 l：表示该位置只可能是

2011-09-27 21:01:32 2448

原创 Delphi 编写Pas文件类型的组件

一、组件的基础知识简介：Pas文件类型的组件，只用一个文件.Pas。组件只包括三类成员：属性、方法、事件，分属于四个部分：private：所有私有的成员都放在这里，只能被类自身的方法所访问，而不能被子类访问，对子类透明。也可说只能被单元本身的方法访问。protect

2011-09-27 20:02:09 2264

转载 Delphi 编写DLL动态链接库文件的知识和样例

一、DLL动态链接库文件的知识简介： Windows的发展要求允许同时运行的几个程序共享一组函数的单一拷贝。动态链接库就是在这种情况下出现的。动态链接库不用重复编译或链接，一旦装入内存，Dlls函数可以被系统中的任何正在运行的应用程序软件所使

2011-09-27 19:51:56 1964

原创 Delphi 按Esc快捷键退出程序的简单方法

第一种方法：在窗体上放一个按钮：1>、设置按钮的Cancel属性为True；2>、在按钮的点击事件中写：procedure TForm1.btn1Click(Sender: TObject);begin Close;end; Button按

2011-09-27 17:39:17 7405

转载 Delphi 编写ActiveX控件（OCX控件）的知识和样例

一、ActiveX应用情况简介： ActiveX控件也就是一般所说的OCX控件，它是 ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32

2011-09-26 14:13:09 6963

原创 Delphi 文件的操作：重命名、复制、移动、删除（制作一个信息上传控件）

Delphi 文件的操作：重命名、复制、移动、删除（制作一个信息上传控件）第一种方法：RenameFile('Oldname', 'Newname');CopyFile(PChar('Oldname'), PChar('Newname'), False);Move

2011-09-26 10:48:16 26324

原创 Delphi 在重命名文件或者文件夹时不能指定别的文件夹或者磁盘

主要是源文件路径与目的文件路径不一样； txtSource = "D:\temp\ucListView\txt1.txt" txtDestination = "D:\temp\ucListView\txt2.txt"例如上面这样子的就可以了。

2011-09-26 10:34:16 1935

原创 Delphi 菜单的应用（系统菜单添加一项、主菜单增加历史记录、弹出菜单的动态合并、菜单中画图、显示状态）

知识简介： Windows菜单可以分为系统菜单、主菜单、弹出菜单三种。一、往系统菜单中添加菜单项//1、在FormCreate中往系统菜单中添加自己的菜单procedure TForm1.FormCreate(Sender: TObject);var

2011-09-26 09:38:34 4103

原创 SQL 存储过程中使用游标的样例

SQL 存储过程中使用游标的样例在SQL中，select语句可以得到一个记录集；而游标可以存储一个结果集，并通过循环将这个结果集里的数据一条一条的取出来进行处理。由于游标一次只能作用一行，它的速度会明显慢于相应的集操作。1、编写

2011-09-25 12:53:51 792

原创 Delphi 设置窗体的属性（最前端显示、淡入淡出效果、滑动效果）

//1、淡入淡出效果、滑动效果procedure TForm1.FormShow(Sender: TObject);begin //AW_SLIDE：滑动类型；AW_BLEND：为淡入淡出效果 //AW_HOR_POSITIVE：自左向右 AW_HOR

2011-09-23 17:32:31 5598 1

原创 Delphi 设置文本框中光标的位置在最后

设置光标的位置 edt1.SelStart := Length(edt1.Text); edt1.SelLength := length(edt1.Text); 虚拟键盘的点击事件//1、操作的事件procedure TForm1.JPSR(s:Strin

2011-09-23 17:03:52 10113

原创 Delphi 根据图片或者文字制作特殊的窗体

一、根据图片制作特殊的窗体1、在FormCreate中计算窗体的不规则区域procedure TForm1.FormCreate(Sender: TObject);var ThreadRgn, TmpRgn: HRgn; X, Y,Height, Widt

2011-09-23 12:16:37 1112

原创 Delphi 委托实现的简例

委托实现是Delphi提供接口技术后引入的功能，是指用另一个类或接口实现某个接口的方法在定义一个类时，如果该类（如TDraw）实现一个接口（如：IDraw），那么该类必须实现接口中的所以方法。通过委托实现，TDraw类就不必实现IDraw接口中的所以方法，可以通过在TDr

2011-09-21 15:33:51 1571

转载 Delphi WebBrowser浏览器的制作方法

WebBrowser1.GoHome; //到浏览器默认主页WebBrowser1.Refresh; //刷新WebBrowser1.GoBack; //后退WebBrowser1.GoForward; //前进WebBrowser1.Navigate('

2011-09-21 14:05:54 1136

转载 Delphi 获取汉字的拼音简拼

1、函数Function TForm1.getPY(hzchar: string): char; //简拼begin case word(hzchar[1]) shl 8 + word(hzchar[2]) of $B0A1..$B0C4: result

2011-09-19 16:07:25 1414

原创 Delphi 自定义窗体（最大化、最小化、关闭、窗体的移动）

Uses ShellAPI; 1、//最小化procedure TForm1.btn1Click(Sender: TObject);var I, J, X, Y: Word;begin //第一种：最小化在屏幕的左下角，不是常见的最小化 // W

2011-09-19 15:15:58 8513

原创 Delphi 任务栏的自动隐藏与隐藏问题

用SHAppBarMessage函数控制任务栏一、显示和隐藏任务栏要想对任务栏进行操作，首先当然需要获得任务栏的句柄，所以首先利用FindWindow获取句柄，再操作示例：1、隐藏任务栏 hWnd:integer; hWnd := FindWindow('Shell_TrayWnd',nil); ShowWin

2011-09-19 14:44:38 5184

原创 SQL 语句创建数据库、表与存储过程的样例

--1、创建数据库CaseManage If exists(select name from master.dbo.sysdatabases where name = N'CaseManage') drop database CaseManage G

2011-09-18 19:41:36 990

原创 Delphi Enter实现与Tab一样的功能

Procedure TMainForm.DoEnterAsTab(var Msg:Tmsg;var Handle:boolean); // Windows, Messages;begin if Msg.message = WM_KEYDOWN then begin if Msg.wParam = VK_RETURN then Keybd_event(VK

2011-09-18 19:40:42 2325

转载 delphi DBNaVigator组件的使用方法

DBNavigator组件用于在数据集进行记录导航，当用户单击DBNaVigator组件的某个按钮时，可实现记录指针的前移、后移，插入‘删除、修改当前记录等操作，而无须编写任何程序代码。 1. DBNavigator组件按钮功能 Firs

2011-09-16 09:20:10 15369

原创 Delphi 控件与窗体之间的位置转换问题

设置两个窗体之间的相对位置，分成两种办法：第一种：简单的办法，设置窗体的属性Position，里面有多个选项： poDesigned：窗体运行时显示的位置和大小与设计相同； poDefault：在运行时自动设置窗口的大小与位置； poDefaultPosOnly：在运行时自动设置窗口的大小与位

2011-09-15 19:04:48 7677

原创 Delphi DBGridEh标题栏的制作（复杂标题栏、标题栏显示图片、按点标题栏进行排序）

1、定制标题行、制作复杂标题行标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下： usemultititile=true; titlelines=2 DBGridEh.Columns[0].Title.Caption := '办公用品

2011-09-14 15:07:29 4779 1

转载 delphi 键盘码值及其转换函数

转换函数函数功能 Chr 将一个有序数据转换为一个ANSI字符 Ord 将一个有序类型值转换为它的序号 Round 转换一个实型值为四舍五入后的整型值 Trunc 转换一个实型值为小数截断后的整型值 Int 返回浮点数的整数部分 IntToStr

2011-09-08 14:28:00 4309

原创 Delphi DBGRID中根据不同的字段值显示不同的小图标

问题简介：在DBGRID中显示图片，或者根据不同的字段值显示不用的小图片，有两种方法：1>、使用DBGridEH设置相应的属性；2>、使用代码，自己在DrawColumnCell事件中进行重画； 1 、使用DBGridEH设置相应的属性在数据单元格中显示不

2011-09-07 19:58:33 5910

原创 Delphi DBGridEh按标题进行排序

DBGridEh按标题进行排序 DBGridEh组件可以在标题行单元格中显示小三角形升、降排序标志符图片，在运行时可点击标题行，图片自动切换并做相应排序。具体属性设置如下： OptionsEh＝dghAutoSortMarking

2011-09-07 11:36:42 8454

转载 delphi 设置系统级的组合键

1.全局或者局部的组合快捷键如果是全局和局部的，那么用主窗体上(或其他控件上)(form)的KeyPress等属性进行监控。 2. 如果是系统级的，那么需要API了. 1>BOOL RegisterHotKey(HWND hWnd, Int id, UI

2011-09-02 17:43:22 1280

原创 Delphi 禁用任务管理器

任务管理器在注册表中的位置是：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System Disable是禁止的意思。当 DisableTaskMgr 的值为1时表示禁用，为0时

2011-09-02 17:12:54 1785

原创 Delphi 添加系统托盘

一、基础知识介绍： NIData:TNotifyIconData，NIData是非常重要的一个变量，整个程序基本上是围着这个变量在转（uses ShellAPI）。1>、 TNotifyIconData是一个记录类型(相对于结构体变量)。 // TNotifyIconData和TNotifyIconDataA, _NOTIFYICONDATAA是同种数据类型，TNo

2011-09-02 13:38:26 3415

原创 Delphi 自定义消息处理过程与Windows消息处理过程

Delphi中，自定义消息处理过程与Windows消息处理过程的定义是一样的。1.主用步骤：1>. 首先定义一个消息标识符常量；如：WM_MYMessage = WM_USER+ 5；（标识符常量的取值范围为WM_USER~WM_APP-1）2>. 在单元文件中定义消

2011-09-02 08:39:11 10939 1

原创 Windows系统消息的取值

Windows系统消息的取值说明值描述0~WM_USER-1系统使用的消息WM_USER~$7FFF自定义消息WM_APP-$BFFF应用程序使用的消息$C000_$FFFF应用程序使用的字符

2011-09-01 11:19:43 1152

xiongmao000738