<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Thank you Martin, I was forget and checked it that. <br>
I add this lines and now field list opening.<br>
RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'DataField',
TFieldProperty);//DataSource := Dataset1<br>
RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'ListField',
TFieldProperty);//ListSource := Dataset2<br>
RegisterPropertyEditor(TypeInfo(string), TExLookUp, 'KeyField',
TFieldProperty);//ListSource := Dataset2<br>
<br>
But: :) in components\ideintf\dbpropedits.pas
<br>
procedure TFieldProperty.FillValues(const Values: TStringList);<br>
var DataSource: TDataSource;<br>
begin<br>
DataSource := GetObjectProp(GetComponent(0), 'DataSource') as
TDataSource;<br>
LoadDataSourceFields(DataSource, Values);<br>
end;<br>
<br>
GetComponent(0) function is return my component "TExLookUp", this is
okey.<br>
But I have 2 Datasource Property:<br>
<br>
published<br>
property DataField: string read GetDataField write
SetDataField;//Accually people use same propertyname<br>
property DataSource: TDataSource read GetDataSource write
SetDataSource;//Accually people use same propertyname<br>
<br>
property KeyField: string read Get_KeyField write Set_KeyField;<br>
property ListField: string read Get_ListField write
Set_ListField;<br>
property ListSource: TDataSource read Get_ListSource write
Set_ListSource;<br>
<br>
TFieldProperty.FillValues function lookingfor in my root component,
only (string type)'DataSource' property.<br>
<br>
For test:<br>
property DataSourcex: TDataSource read GetDataSource write
SetDataSource;<br>
I change property name 'DataSource' to 'DataSourcex', when click to
DataField property, this error popup.<br>
<br>
<meta name="qrichtext" content="1">
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><!--StartFragment-->Unknown
property: "DataSource".</p>
<p style="-qt-paragraph-type:empty; margin-top:0px;
margin-bottom:0px; margin-left:0px; margin-right:0px;
-qt-block-indent:0; text-indent:0px;"><br>
</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;">Press OK
to ignore and risk data corruption.</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;">Press
Cancel to kill the program.<!--EndFragment--></p>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<style type="text/css">
p, li { white-space: pre-wrap; }
</style><br>
Any idea ?<br>
<br>
<br>
<div class="moz-cite-prefix">27-02-2014 21:44 tarihinde, Martin Frb
yazdı:<br>
</div>
<blockquote cite="mid:530F95A2.10309@mfriebe.de" type="cite"><br>
you are missing:
<br>
<br>
RegisterPropertyEditor(TypeInfo(string), TComponent,
'DataField', TFieldProperty);
<br>
<br>
see
<br>
components\ideintf\dbpropedits.pas
<br>
</blockquote>
<br>
</body>
</html>