摘要：
Delphi与C之间的类型对应表.其中左边是C类型,右边是对应的Delphi类型:ABC -> TABC ACCEL -> TAccel ATOM -> TAtom BITMAP -> TBitMap BITMAPCOREHEADER -> TBitmapCoreHeader BITMAPCOREINFO -> TBitmapCoreInfo BITMAPFILEHEADER -> TBitmapFileHeader BITMAPINFO -> TBitmapInfo BITMAPINFOHEADER -> TBitmapInfoHeade 阅读全文
摘要：
{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... 阅读全文
摘要：
//适用范围：与ADO数据集相连的DBGrid按单一字段排序//传入参数：Column(排序字段对应的DBGridColumn)，DefaultSort(缺省排序串)//使用建议：在DBGrid的OnTitleClick中直接调用之。第一次单击某Column标题栏时，按改字段升序排列，连续第二次单击时改为降序，连续第三次单击时，改为缺省方式排序（如PrimaryKey等）procedure SortDBGrid(Column: TColumn; DefaultSort: string='');const ASCMark: string = '▲'; DESCMa 阅读全文
摘要：
uses Windows, SysUtils, Classes,StdCtrls, ComCtrls;constcreateToChild=1;createToAboveBrother=2;createToUnderBrother=3;{ 复制树(含子节点) 输入参数 DestTree 复制目的地TTreeView控件 SourceNode 复制源 DestNode 复制目的地 CreateStyle 复制类型 createToChild 生成复制目的地的子节点 createToAboveBrother ... 阅读全文
摘要：
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 阅读全文
摘要：
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... 阅读全文
摘要：
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... 阅读全文
摘要：
首先，在主窗体中声明以下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; 阅读全文
摘要：
ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, 'open', PChar('c:/test/app.exe'), nil, nil, SW_SHOW);打开记事本，并打开一个文件(系统能识别记事本应用程序的路径，因此我们不必使用绝对路径） ShellExecute(Han 阅读全文
摘要：
(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：ExcelApp.WorkBooks.Open( 'C:/ 阅读全文