[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