допустим есть компонент наследник TCustomPanel
на котором распологаются несколько TDBEdit
как сделать так что бы в Object инспекторе обозначались свойства этих компонентов а именно:
DataField
DataSource
причем при выборе DataSource, хотелось бы что был список полей которые можно выбрать в DataField.
property DataSource: TDataSource read FDataSource write SetDataSource;
property Field1: string read GetField1 write SetField1;
procedure TschPanel.SetDataSource(Source: TDataSource);
begin
FDataSource:=Source;
DBEdit1.DataSource:=FDataSource;
end;
function TschPanel.GetField1: string;
begin
result:=DBEdit1.DataField;
end;
procedure TschPanel.SetField1(s: string);
begin
DBEdit1.DataField:=s;
end;
при этом того что я хочу не получаю.