2008年4月5日
TreeView 之间节点拖动 /移动
摘要： 设置TreeView的DragMode = dmAutoMaticprocedure TFmMain.TreeLeftDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin Accept := False ; //if (source is TTreeNode) or (Source is TListItem) then if (source is TTreeView) or (source is TListview) then Accept := true . 阅读全文
posted @ 2008-04-05 13:40 delphi中间件 阅读(568) 评论(0) 推荐(0) 编辑
是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？
摘要： 是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？ 这里介绍a56爆大奖在线娱乐利用Windows未公开函数实现这个功能的方法。 在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗口添加到系统的系统消息监视链中，该函数在Delphi中的定义如下： Function SHChangeNotifyRegister(hWnd,uFlags,dwEventID,uMSG,cItems:LongWord; lpps:PIDLSTRUCT):integer;stdcall;external 'She... 阅读全文
posted @ 2008-04-05 13:16 delphi中间件 阅读(235) 评论(0) 推荐(0) 编辑
2008年4月3日
Delphi与C之间的类型对应表
摘要： Delphi与C之间的类型对应表.其中左边是C类型,右边是对应的Delphi类型:ABC -> TABC ACCEL -> TAccel ATOM -> TAtom BITMAP -> TBitMap BITMAPCOREHEADER -> TBitmapCoreHeader BITMAPCOREINFO -> TBitmapCoreInfo BITMAPFILEHEADER -> TBitmapFileHeader BITMAPINFO -> TBitmapInfo BITMAPINFOHEADER -> TBitmapInfoHeade 阅读全文
posted @ 2008-04-03 09:33 delphi中间件 阅读(784) 评论(0) 推荐(0) 编辑
2008年4月2日
DataSetToTreeView
摘要： {Copyright (c) 咏南工作室Author: 陈新光 Date: 2006.11.26 ToDo: 类别、部组业务单元}unit uTree;interfaceuses sysUtils, comCtrls, db, dbClient, forms, iTree, //接口单元 uDm2; //数据模块type Ttree = class(TinterfacedObject, It) private dm2: Tdm2; {增加节点} procedure AppendNode(Tree: TTreeView; NODE: TTreeNode; c... 阅读全文
posted @ 2008-04-02 08:40 delphi中间件 阅读(226) 评论(0) 推荐(0) 编辑
2008年4月1日
以ADO数据集相连的DBGrid按单一字段排序通用过程
摘要： //适用范围：与ADO数据集相连的DBGrid按单一字段排序//传入参数：Column(排序字段对应的DBGridColumn)，DefaultSort(缺省排序串)//使用建议：在DBGrid的OnTitleClick中直接调用之。第一次单击某Column标题栏时，按改字段升序排列，连续第二次单击时改为降序，连续第三次单击时，改为缺省方式排序（如PrimaryKey等）procedure SortDBGrid(Column: TColumn; DefaultSort: string='');const ASCMark: string = '▲'; DESCMa 阅读全文
posted @ 2008-04-01 17:05 delphi中间件 阅读(386) 评论(0) 推荐(0) 编辑
复制树(含子节点)
摘要： uses Windows, SysUtils, Classes,StdCtrls, ComCtrls;constcreateToChild=1;createToAboveBrother=2;createToUnderBrother=3;{ 复制树(含子节点) 输入参数 DestTree 复制目的地TTreeView控件 SourceNode 复制源 DestNode 复制目的地 CreateStyle 复制类型 createToChild 生成复制目的地的子节点 createToAboveBrother ... 阅读全文
posted @ 2008-04-01 16:53 delphi中间件 阅读(432) 评论(0) 推荐(0) 编辑
图形格式转换
摘要： uses Windows, Messages, SysUtils, Classes, Graphics, JPEG;function BmpToJpeg(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成jpgfunction BmpToEmf(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成emffunction BmpToWmf(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成wmffunction BmpToIcon(Sou:TFileName;Des:Til 阅读全文
posted @ 2008-04-01 16:50 delphi中间件 阅读(294) 评论(0) 推荐(0) 编辑
权限树
摘要： unit uckDroitTreeView;interfaceuses Windows, Messages, SysUtils, Classes, Controls, ComCtrls,CommCtrl;{权限树}type TuckDroitTreeView = class(TTreeView) private FCheckBoxReadOnly : Boolean; FOldState : Boolean; FOnCheckedChange : TTVChangedEvent; function IsNodeChecked(Node :TTreeNode) :Boolean; fu... 阅读全文
posted @ 2008-04-01 16:43 delphi中间件 阅读(479) 评论(0) 推荐(1) 编辑
MSSQL与Delphi类型对照一览表
摘要： Value Sql DescriptionftUnknown Unknown or undeterminedftString char Character or string fieldftSmallint smallint 16-bit integer fieldftInteger int 32-bit integer fieldftWord tinyint 16-bit unsigned integer fieldf... 阅读全文
posted @ 2008-04-01 16:23 delphi中间件 阅读(509) 评论(0) 推荐(0) 编辑
Enter键使用作Tab键
摘要： 首先，在主窗体中声明以下private过程:procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);beginif Msg.Message = WM_KEYDOWN thenbeginif Msg.wParam = VK_RETURN thenKeybd_event(VK_TAB, 0, 0, 0);end; //ifend;在主窗体的OnCreate事件中加入:Application.OnMessage := DoEnterAsTab; 阅读全文
posted @ 2008-04-01 16:13 delphi中间件 阅读(347) 评论(0) 推荐(0) 编辑