VCL(四) 如何写出象TTable, TAdoTable ,Tquery,TAdoQuery 等控件一样的自动下拉显示Field属性
如何写出象TTable, TAdoTable ,Tquery,TAdoQuery 等控件一样的自动下拉显示Field属性
Delphi VCL在Delphi 中有很多源码，但是有些关键的属性编辑器却找不到，下面我将举几个例子来说明一下
我们可以研究一下TDBEdit的两个关键属性一个Datasource,DataField.
示例如下
TTestcontrol=class(TWinControl)
private
FDataLink: TFieldDataLink; //定义一个存储字段的属性
function GetDataField: string;
function GetDataSource: TDataSource;
procedure SetDataField(const Value: string);
procedure SetDataSource(const Value: TDataSource);
published
//下面说明时要用到
//property ResultField :string read GetDataField write SetDataField;
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
end;
//获取字段名
function TTestcontrol.GetDataField: string;
begin
Result := FDataLink.FieldName; //
end;
//获取数据源
function TTestcontrol.GetDataSource: TDataSource;
begin
Result := FDataLink.DataSource;
end;
//设置字段名
procedure TTestcontrol.SetDataField(const Value: string);
begin
if not (csDesigning in ComponentState) then
ResetMaxLength;
FDataLink.FieldName := Value;
end;
//设置数据源
procedure TTestcontrol.SetDataSource(const Value: TDataSource);
begin
if not (FDataLink.DataSourceFixed and (csLoading in ComponentState)) then
FDataLink.DataSource := Value;
if Value <> nil then
Value.FreeNotification(Self);
end;
当实现完这样的控件后，只要你在界面放置了一个Tadoquery，并且把Tadoquery打开，
你给TTestcontrol指定了DataSource之后，你会发现DataField已经可以下拉，并不需要
写什么属性编辑器，这是因为Delphi内属性编辑器注册是针对所有Delphi控件的，所有
符合Datasource,DataField的属性规范的都自动可以了。如果你把上述控件中的名字改了，
注释掉的部分，DataField改为ResultField你就不能自动下拉了,就只能输入字符串(其实还是有属性编辑器的，至少是字符串嘛)，这就需要自己编写属性编辑器，且注册给自己的控件
我写出如下一个属性编辑器
TListFieldProperty = class(TStringProperty) //继承于TStringProperty,因为FieldName是字符串
public
function GetAttributes: TPropertyAttributes; override;
procedure GetValueList(List: TStrings); virtual;
procedure GetValues(Proc: TGetStrProc); override;
function GetDataSourcePropName: string; virtual;
end;
{ TListFieldProperty }
function TListFieldProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paValueList, paSortList, paMultiSelect];
end;
function TListFieldProperty.GetDataSourcePropName: string;
begin
Result := 'DataSource'; //指定字段下拉列表到什么属性里取值
end;
procedure TListFieldProperty.GetValueList(List: TStrings);
var
DataSource: TDataSource;
begin
//从上述GetDataSourcePropName方法指定的属性去取出所有字段用来下拉显示
//因为在本控件中定义的属性是TDataSource 所以这里用TDataSource, 如果是TAdoQuery, 或者其他派生于
//TDataSet类的这里就只需要点定义一个DataSet 而不需要TDataSource了
DataSource := GetPropertyValue(GetComponent(0), GetDataSourcePropName) as TDataSource;
if (DataSource <> nil) and (DataSource.DataSet <> nil) then
DataSource.DataSet.GetFieldNames(List);
end;
procedure TListFieldProperty.GetValues(Proc: TGetStrProc);
var
I: Integer;
Values: TStringList;
begin
//用来显示列表
Values := TStringList.Create;
try
GetValueList(Values);
for I := 0 to Values.Count - 1 do Proc(Values[I]);
finally
Values.Free;
end;
end;
属性编辑器已经写好，
我们需来注册这个属性编辑器，注册代码如下
RegisterPropertyEditor(TypeInfo(string), TTestcontrol, 'ResultField', TListFieldProperty);
另外还可以给你注册的属性加一个归类CategoryName,我们把上述ResultField属性指定为DataBase型属性,注册示例如下
:RegisterPropertiesInCategory('DataBase', TTestcontrol, ['ResultField']);
假设上面的控件TTestcontrol没有DataSource属性，那也不能成功的， 所以在属性编辑器方法内指定字段来源哪个数据源，假设你的字段是ListSource属性，那这样指定
function TListFieldProperty.GetDataSourcePropName: string;
begin
Result := 'ListSource'; //指定字段下拉列表到什么属性里取值
end;
相信到这里，有很多朋友举一反三了，实现数据感知控件已经不在话下了， 因为难点就在这儿，其他代码在Delphi里可
以找到
下一次，我将讲另一个难点，关于集合的属性编辑器编写，比如DBGrid的TColumn风格
