2016年2月25日
用Delphi实现Windows的鼠标钩子函数
Delphi是基于PASCAL语言的Windows编程工具，功能十分强大。然而在Delphi的帮助文件中，对Windows API函数的说明沿袭了 VC 的格式，和VC一样，对很多API函数的用法没有举例子详细说明，对一些深入系统内部的API函数更是语焉不详，给编程者带来不便。笔者仅就在Window Read More
posted @ 2016-02-25 18:43 findumars Views(3242) Comments(0) Diggs(0)
用DELPHI的RTTI实现数据集的简单对象化
在《强大的DELPHI RTTI--兼谈需要了解多种开发语言》一文中，我说了一下我用DELPHI的RTTI实现了数据集的简单对象化。本文将详细介绍一下我的实现方法。 首先从一个简单的例子说起：假设有一个ADODataSet控件，连接罗斯文数据库，SQL为： select * from Employe Read More
posted @ 2016-02-25 18:42 findumars Views(1951) Comments(0) Diggs(0)
Delphi 拖放文件编程（覆盖WM_DROPFILES消息）
unit Unit1; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi, StdCtrls; type TForm1 = class(TForm) Mem Read More
posted @ 2016-02-25 18:39 findumars Views(1462) Comments(0) Diggs(0)
timesetevent与timekillevent的用法
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, mmsystem; type TForm1 = class Read More
posted @ 2016-02-25 18:38 findumars Views(2080) Comments(0) Diggs(0)
dephi中单击鼠标拖动窗口（使用WM_SYSCOMMAND）
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Perform(WM_SYSCOMMAND,$ Read More
posted @ 2016-02-25 18:37 findumars Views(424) Comments(0) Diggs(0)