组件属性编辑器-数据字段列表功能

unit ValueListPE;

interface
uses
  Windows, SysUtils,designEditors,DesignIntf,classes,db,TypInfo,Dbeditplus;

Type
 TValueListProPerty = class(TStringProPerty)
 private
   procedure GetValueList(List: TStrings);
  //自定义过程,得到字段列表
   function GetPropertyValue(Instance: TPersistent; const PropName: string):
TPersistent;
 protected
   { Protected declarations }
 public
   procedure GetValues(Proc: TGetStrProc); override;
   function GetAttributes: TPropertyAttributes; override;
   { Public declarations }
 published
   { Published declarations }
 end;

procedure Register;
implementation
procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(string), TDBEditPlus, 'ListField', TValueListProPerty);//注册属性为"ListField"的编辑器
  RegisterPropertyEditor(TypeInfo(string), TDBEditPlus, 'KeyField', TValueListProPerty);//注册属性为"KeyField"的编辑器
end;

{ TValueListProPerty }

function TValueListProPerty.GetAttributes: TPropertyAttributes;
begin
  Result := [paValueList, paSortList, paMultiSelect];//属性类型
end;


function TValueListProPerty.GetPropertyValue(Instance: TPersistent;
  const PropName: string): TPersistent;
var
 PropInfo: PPropInfo;
begin
 Result := nil;
 PropInfo := TypInfo.GetPropInfo(Instance.ClassInfo, PropName);
 if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) then
   Result := TObject(GetOrdProp(Instance, PropInfo)) as TPersistent;
end;

procedure TValueListProPerty.GetValueList(List: TStrings);
var
 DataSource: TDataSource;
begin
 //查询Datasource为"ListSource"的对像
 DataSource := GetPropertyValue(GetComponent(0), 'ListSource') as TDataSource;
 if (DataSource <> nil) and (DataSource.DataSet <> nil) then
   DataSource.DataSet.GetFieldNames(List);
end;
//字段列表赋值
procedure TValueListProPerty.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]);
   if values.count=0 then
      Proc(' ');
 finally
   Values.Free;
 end;

end;
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值