[Lazarus] Is this bug ? or how to do?
Martin Frb
lazarus at mfriebe.de
Fri Feb 28 18:13:06 CET 2014
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20140228/20d9df54/attachment-0003.html>
More information about the Lazarus
mailing list