On 28/02/2014 16:32, FreeMan wrote:
Thank you Martin, I was forget and checked it that.
I add this lines and now field list opening.
RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'DataField',
TFieldProperty);//DataSource := Dataset1
RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'ListField',
TFieldProperty);//ListSource := Dataset2
RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'KeyField',
TFieldProperty);//ListSource := Dataset2
But: :) in components\ideintf\dbpropedits.pas
procedure TFieldProperty.FillValues(const Values: TStringList);
var DataSource: TDataSource;
begin
DataSource := GetObjectProp(GetComponent(0), 'DataSource') as
TDataSource;
LoadDataSourceFields(DataSource, Values);
end;
I am no expert on this, so I cant give you much more help. But it looks
you need to write your own property editor.
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
