正在开发一个非.net得数据表格组件，用到.net应用中去……
在家正在开发一个grid COM组件，因为实在用.net Winform提供的DataGrid不爽，功能太少了，搞什么都得自己写大堆代码，连最基本得行选都得自己写datagrid.select(...) ...烦了；还是封装几个COM组件，反正系统也只需要运行到win2k的工控机上；大致确定了一下功能和名称，叫做GridCellPro组件，支持多种功能，比如合计列，合计行，打印，中文金额，过滤，排序，加亮，列排序，固定列，多种CELL；还有一个就是报表，水晶报表很强大，可和我使用习惯不一样，也许是习惯了borland的贴心设计吧，还是做好表格组件再说吧，希望能改善一下开发效率。
目前编写完框架代码，已经把表格框架搞完了，只是属性定制对话框还有点问题，到网上搜来个文章看了看，还不错，关键得地方都讲到了；顺便也收录进来，今后忘了又看。
原始地址：http://hubdog.csdn.net/Hubdog/ActiveX2.htm
转自哈巴狗的小窝
完善ActiveX控件
从VCL出发生成一个基本的ActiveX控件是很容易的，但为了让它更容易使用，比如添加属性页编辑器，还需要做一些额外的工作。接下来我们将继续完善ListX控件，这次不是改进它运行时的功能，而是增强它设计时的编辑功能，为它提供一个属性页和下拉式属性编辑器。
属性列表
如图1.7所示，在Visuabl Basic的窗体上放置一个ListBoxX控件，这时可以注意到在属性察看器中Cursor 和DragCursor 属性，不像通常在Delphi的属性察看器中所看到的ListBox控件的相应属性那样显示crDefault 和其他crDrag 枚举变量，而是显示0和-12的数值。这是因为TCursor 类型在Delphi中是整数类型，所以当ActiveX control wizard转化TListBox 控件时，Cursor属性就按一个整数属性来处理了。这样，在Visual Basic中我们要想设定列表框控件的光标为时钟形状，我们必须设定Cursor 属性为-11， 它等价于定义在Controls单元中的crHourGlass 常数值，但这样显得非常不直观，很容易忘记和混淆。
图1.7
同时，在Delphi中使用TListBox 控件时，除了是显示一个符号名而不是数值外，属性察看器还会显示一个下拉式列表，里面包含了所有可能的光标值，那么我们能不能使我们的ActiveX控件在Visual Basic中有同样的属性列表呢？Nothing is impossible!我们可以重载TActiveXControl类的GetPropertyString、GetPropertyStrings和GetPropertyValue 方法来做到。下面就是修改后的ListBox控件代码：
unit ListBoxImpl;
interface
uses
Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
ComServ, StdVCL, AXCtrls, DelphiByDesignXLib_TLB;
type
TListBoxX = class( TActiveXControl, IListBoxX )
private
{ Private declarations }
FDelphiControl: TListBox;
//省略…
protected
{ Protected declarations }
procedure InitializeControl; override;
procedure EventSinkChanged(const EventSink: IUnknown); override;
procedure DefinePropertyPages( DefinePropertyPage: TDefinePropertyPage); override;
function GetPropertyString( DispID: Integer; var S: string ): Boolean; override;
function GetPropertyStrings( DispID: Integer; Strings: TStrings ): Boolean; override;
procedure GetPropertyValue( DispID, Cookie: Integer; var Value: OleVariant ); override;
{ Methods that support properties }
. . .
end;
implementation
uses
TabWidthPpg, AboutListBox, SysUtils;
function TListBoxX.GetPropertyString( DispID: Integer;var S: string ): Boolean;
begin
case DispID of
5: // 5 =IlistBoxXDisp接口中DragCursor属性的DispID
begin
S := CursorToString( Get_DragCursor );
Result := True;
end;
26: // 26 = IlistBoxXDisp接口中Cursor属性的DispID
begin
S := CursorToString( Get_Cursor );
Result := True;
end;
else
Result := False;
end;
end;
function TListBoxX.GetPropertyStrings( DispID: Integer; Strings: TStrings ): Boolean;
var
I: Integer;
Cookie: Integer;
TempList: TStringList;
begin
case DispID of
5, // 5 =IlistBoxXDisp接口中DragCursor属性的DispID
26: // 26 = IlistBoxXDisp接口中Cursor属性的DispID
begin
TempList := TStringList.Create;
try
GetCursorValues( TempList.Append );
for I := 0 to TempList.Count - 1 do
begin
Cookie := StringToCursor( TempList[ I ] );
Strings.AddObject( TempList[ I ], TObject( Cookie ) );
end;
finally
TempList.Free;
end;
Result := True;
end;
else
Result := False;
end;
end;
procedure TListBoxX.GetPropertyValue( DispID, Cookie: Integer;
var Value: OleVariant );
begin
case DispID of
5, // 5 =IlistBoxXDisp接口中DragCursor属性的DispID
26: // 26 = IlistBoxXDisp接口中Cursor属性的DispID
begin
{ Cookie 代表被选的项目}
Value := Cookie;
end;
end;
end;
{= 省略…}
initialization
TActiveXControlFactory.Create( ComServer, TListBoxX, TListBox,
Class_ListBoxX, 1, '{B19A64E4-644D-11D1-AE4B-444553540000}', 0);
end.
这里TListBoxX 控件由于是继承于TActiveXControl，所以在TListBoxX类中可以重载上面的方法。
GetPropertyString 函数在属性察看器显示一个属性时会被调用，通过重载这个方法，我们可以为一个属性值提供一个字符串表达。它同Delphi的属性编辑器TPropertyEditor类的GetValue方法比较类似。
GetPropertyString 函数会提供两个参数，第一个是被请求字符串表达的属性的dispid。因为所有控件属性的显示都会调用这个方法，所以必须过滤要处理的属性，这通过用Case语句来检验Dispid就可以了。要想确定每个属性对应的Dispid，可以察看类型库接口单元。类型库单元的代码如下：
unit DelphiByDesignXLib_TLB;
{ This file contains pascal declarations imported from a type library.
This file will be written during each import or refresh of the type
library editor. Changes to this file will be discarded during the
refresh process. }
interface
uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
const
LIBID_DelphiByDesignXLib: TGUID =
'{B19A64DB-644D-11D1-AE4B-444553540000}';
const
{ Component class GUIDs }
Class_ListBoxX: TGUID = '{B19A64DE-644D-11D1-AE4B-444553540000}';
type
{ Forward declarations: Interfaces }
IListBoxX = interface;
IListBoxXDisp = dispinterface;
IListBoxXEvents = dispinterface;
{ Forward declarations: CoClasses }
ListBoxX = IListBoxX;
{ Forward declarations: Enums }
TxBorderStyle = TOleEnum;
TxDragMode = TOleEnum;
TxImeMode = TOleEnum;
TxListBoxStyle = TOleEnum;
TxMouseButton = TOleEnum;
{ Dispatch interface for ListBoxX Control }
IListBoxX = interface(IDispatch)
['{B19A64DC-644D-11D1-AE4B-444553540000}']
function Get_DragCursor: Smallint; safecall;
procedure Set_DragCursor(Value: Smallint); safecall;
. . .
function Get_Cursor: Smallint; safecall;
procedure Set_Cursor(Value: Smallint); safecall;
. . .
procedure AboutBox; safecall;
. . .
property DragCursor: Smallint
read Get_DragCursor write Set_DragCursor;
. . .
property Cursor: Smallint read Get_Cursor write Set_Cursor;
end;
{ DispInterface declaration for Dual Interface IListBoxX }
IListBoxXDisp = dispinterface
['{B19A64DC-644D-11D1-AE4B-444553540000}']
property BorderStyle: TxBorderStyle dispid 1;
property Color: TColor dispid 2;
property Columns: Integer dispid 3;
property Ctl3D: WordBool dispid 4;
property DragCursor: Smallint dispid 5;
property DragMode: TxDragMode dispid 6;
property Enabled: WordBool dispid 7;
property ExtendedSelect: WordBool dispid 8;
property Font: Font dispid 9;
property ImeMode: TxImeMode dispid 10;
property ImeName: WideString dispid 11;
property IntegralHeight: WordBool dispid 12;
property ItemHeight: Integer dispid 13;
property Items: IStrings dispid 14;
property MultiSelect: WordBool dispid 15;
property ParentColor: WordBool dispid 16;
property ParentCtl3D: WordBool dispid 17;
property Sorted: WordBool dispid 18;
property Style: TxListBoxStyle dispid 19;
property TabWidth: Integer dispid 20;
property Visible: WordBool dispid 21;
procedure Clear; dispid 22;
property ItemIndex: Integer dispid 23;
property SelCount: Integer readonly dispid 24;
property TopIndex: Integer dispid 25;
property Cursor: Smallint dispid 26;
procedure AboutBox; dispid -552;
end;
{ Events interface for ListBoxX Control }
IListBoxXEvents = dispinterface
['{B19A64DD-644D-11D1-AE4B-444553540000}']
procedure OnClick; dispid 1;
procedure OnDblClick; dispid 2;
procedure OnKeyPress(var Key: Smallint); dispid 3;
procedure OnColorItem(Index: Integer;
var Color: TColor); dispid 4;
end;
implementation
end.
从上面可以看到，与控件属性对应的Dispid可以在IListBoxXDisp 声明部分找到。
GetPropertyString 函数的第二个参数是一个字符串变量。这个字符串变量将会被显示为相应的属性值，但要注意的是函数的返回值一定要设为True，返回False 将使属性察看器忽略返回的字符串参数。
在上面的GetPropertyString 方法中，使用了CursorToString 函数来转化当前属性值为一个字符串，同时Get_Cursor和Get_DragCursor方法被用来获得当前的属性值。
实现GetPropertyString 方法可以确保对于每个Cursor数值都会有一个字符串来说明它，但是如何显示所有光标的下拉列表呢？这时就必须重载GetPropertyStrings 和GetPropertyValue 方法了。GetPropertyStrings 负责生成一个将要显示在下拉列表中的字符串列表。当用户从列表中选择了一个列表项后，GetPropertyValue 方法就会被调用来返回真正的数值。
首先让我们来看GetPropertyStrings 函数，这个方法有两个参数：一个是Dispid，一个是字符串列表，Dispid自然还是对应于操作的属性，而字符串列表则是用来容纳将要显示在下拉列表中的字符串，此外，字符串列表还必须为每个列表项保存一个唯一的“cookie”值，当用户选择了一个列表项后，对应的cookie值会传递给GetPropertyValue 方法。
为了把cookie值同列表中的字符串关联起来，调用Strings.AddObject 方法来添加字符串到列表中：
try
GetCursorValues( TempList.Append );
for I := 0 to TempList.Count - 1 do
begin
Cookie := StringToCursor( TempList[ I ] );
Strings.AddObject( TempList[ I ], TObject( Cookie ) );
end;
finally
|
图1.8 |
把要显示的字符串作为第一个参数，而第二个参数为Cookie值来调用。Cookie值可以取任意值，这里使用的是Cursor本身对应的整数值。注意AddObject方法的第二个参数需要是TObject类型的参数，所以这里进行了一次类型映射。
GetPropertyValue 方法则有三个参数：第一个参数是属性对应的Dispid，第二个参数是对应于被选列表项的Cookie值，而第三个是用来返回属性值的参数。这个方法的处理非常简单，对于我们这个例子来说，只要把Cookie值返回就可以了，因为它就是实际的Cursor对应的值。
实现这些方法后，我们要做的就是重新注册控件了，图1.8显示了新界面更加友好的属性下拉列表。
实现属性页支持
仔细看一下Visual Basic中的ListBoxX控件的属性察看器，就会发现Items 属性没有显示在其中，但ListBoxX控件是有Items 属性的，其实这是因为ActiveX Control Wizard把它由published属性声明为public类型的属性了，这使得我们只能在运行时操作Items 属性，而无法在设计时编辑Items 属性。因为Visual Basic没有为Items类型的属性提供缺省的属性编辑器，所以ActiveX Control Wizard就没有published Items属性。
|
图1.9 |
但可以通过自定义的属性页编辑器来提供对Items属性设计时的编辑支持。属性页总能在各种支持ActiveX控件程序中看到，它提供了方便的属性编辑功能。Delphi 提供了一些现成的预定义的属性页支持，可以把它同ActiveX控件相关联。每个属性页有一个对应的Class ID，它声明在AxCtrls单元中，图1.9列出了每个ID和对应的属性页的功能：
这些预定义的属性页被设计成可以用于任意的ActiveX控件。每个属性页都使用运行时类型信息 (RTTI)来确定控件中哪个属性可以使用相应的属性页进行编辑，并会把每个属性名添加到一个下拉编辑框中，这样的话，一个属性页就可以编辑所有相同类型的属性了。图1.10显示了用来编辑ListBoxX控件的Items属性的字符串属性页：
要想把预定义的属性页同ActiveX控件相关联，只要在控件的DefinePropertyPages 方法中添加对DefinePropertyPage方法的调用就可以了，下面代码把字符串和字体属性页同ListBoxX控件进行了关联：
图1.10
{ TListBoxX }
procedure TListBoxX.DefinePropertyPages(
DefinePropertyPage: TDefinePropertyPage );
begin
{ 把预定义的属性页同控件关联 }
DefinePropertyPage( Class_DStringPropPage );
DefinePropertyPage( Class_DFontPropPage );
//省略…
end;
用户定制的属性页
除了使用预定义的属性页外，还可以创建自定义的属性页。选菜单File|New，切换到ActiveX页，然后选择Property Page项，Delphi将生成一个属性页的窗体文件和单元文件。下面就是生成的TabWidthPpg属性页的代码：
unit TabWidthPpg;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms,
ComServ, ComObj, StdVcl, AxCtrls,
ComCtrls;
type
TPpgTabWidth = class(TPropertyPage)
GrpPreview: TGroupBox;
GrpTabWidth: TGroupBox;
LstPreview: TListBox;
ChkUseTabs: TCheckBox;
TrkTabWidth: TTrackBar;
procedure ChkUseTabsClick(Sender: TObject);
procedure TrkTabWidthChange(Sender: TObject);
private
{ Private declarations }
protected
procedure UpdatePropertyPage; override;
procedure UpdateObject; override;
public
{ Public declarations }
end;
const
Class_PpgTabWidth: TGUID =
'{8BE91420-9070-11D1-AE4B-44455354616F}';
implementation
{$R *.DFM}
procedure TPpgTabWidth.UpdatePropertyPage;
var
I: Integer;
begin
{ 使用OleObject更新对象}
{ 从对象中复制字符串到预览列表框 }
for I := 0 to OleObject.Items.Count - 1 do
LstPreview.Items.Add(OleObject.Items[I]);
ChkUseTabs.Checked := OleObject.TabWidth > 0;
TrkTabWidth.Position := OleObject.TabWidth div 4;
LstPreview.TabWidth := OleObject.TabWidth;
end;
procedure TPpgTabWidth.UpdateObject;
begin
{ 使用OleObject更新控件TabWidth属性}
OleObject.TabWidth := LstPreview.TabWidth;
end;
procedure TPpgTabWidth.ChkUseTabsClick(Sender: TObject);
begin
TrkTabWidth.Enabled := ChkUseTabs.Checked;
if ChkUseTabs.Checked then
LstPreview.TabWidth := TrkTabWidth.Position * 4
else
LstPreview.TabWidth := 0;
end;
procedure TPpgTabWidth.TrkTabWidthChange(Sender: TObject);
begin
Modified;
LstPreview.TabWidth := TrkTabWidth.Position * 4;
end;
initialization
TActiveXPropertyPageFactory.Create(
ComServer, TPpgTabWidth, Class_PpgTabWidth);
end.
|
图1.11 |
注意上面TPpgTabWidth 类是从TPropertyPage继承来的，它的上层父类是TCustomForm。因此我们可以像普通的Delphi窗体一样定制属性页。这个属性页允许用户可视化的调整ActiveX控件的TabWidth 属性。图1.11就是属性页示意图。
属性页显示时应该能够根据存储在ActiveX控件中的数据更新相应属性页页面的显示，这一切都可以在UpdatePropertyPage方法中来加以实现。上面代码中的TPpgTabWidth. UpdatePropertyPage 方法就是先从ActiveX控件中获得字符串，接着设定ListPreview 列表框，然后是checkbox状态和TabWidth 属性被初始化。一旦激活属性页后，必须能够根据用户输入更新ActiveX控件的属性，这是通过实现UpdateObject 方法来完成的。上面代码中TPpgTabWidth.UpdateObject 方法就是简单的根据预览列表的TabWidth设定更新ActiveX控件的。要注意的是方法中用到的OleObject 就代表ActiveX控件，因此可以使用它来设定数据。
同预定义的属性页一样，我们也要把自定义的属性页同ActiveX控件相关联。同前面一样，通过在DefinePropertyPages 方法中添加对DefinePropertyPage的调用就可以了，这回参数就是新建立的属性页的GUID ，下面就是实现代码：
{ 把用户定制的属性页同控件相关联 }
DefinePropertyPage( Class_PpgTabWidth );
分发ActiveX控件
显然分发包中必须包括编译生成的*.ocx 文件，如果ActiveX项目中用到了其他运行时包，我们还需要分发相应的文件。
如果创建ActiveX控件时选择生成设计时的许可文件，还需要分发相应的*.lic文件。
另外，如果创建的ActiveX项目用到了IStrings 接口或预定义的字体、颜色、字符串或图像属性页的话，我们还必须分发标准的VCL类型库，它包括StdVcl32.dll和StdVcl32.tlb类型库文件。这两个文件是被Delphi安装到了Windows的系统目录下（比如，C:\WinNT\System32）。凡是使用了预定义的属性页的控件必须分发StdVcl32.dll，然而如果只使用了IStrings接口的话，可以只分发StdVcl32.tlb类型库。
注册ActiveX的工具Turbo Register Server
要想使ActiveX控件生效，必须更新注册表信息，这可以使用Turbo Register Server (TRegSvr)程序来完成，这个程序是Borland作为一个演示程序提供的。例子源代码位于Demos\ActiveX\TRegSvr目录下。
TRegSvr 是一个简单的命令行程序，它支持一些开关来控制ActiveX控件的注册，除了要注册的文件名外不加任何参数的话就会注册指定文件。加了-u开关的话就会注销ActiveX控件，-t开关是用来表明ActiveX控件的类型库也应该被注册，如果要注册的文件名为*.tlb，则这个开关可以不设定。-q开关表示TRegSvr不显示任何输出信息，这使得它比较适用于嵌入于安装程序中。
下面是使用TRegSvr程序注册TListBoxX 控件的例子示意：
TRegSvr -q XXX.ocx
TRegSvr -q StdVcl32.dll
