Форум "Delphi" (архив)

Паскаль, Делфи

#0 Deep © 14.12.04 18:30:15 - 15.12.04 01:45:13

Невизуальные компоненты внутри другого невизуального компонента

сделал сабж,
проблема в том, что не сохраняются свойства вложенных невизуальных компонентов выставленные в дизайнере. Т.е. авыставил свойства, сохранил, вышел. Захожу - свойства имеют значения по умолчанию.

#1 Deep © 15.12.04 01:45:13

как оказалось, для таких "встроеных" компонент нужно вызывать метод SetSubComponent(true);

constructor TdbxDataSource.Create(AOwner: TComponent);
begin
  inherited;
  FSQLDataSet := TSQLDataSet.Create(self);
  FSQLDataSet.Name := 'SQLDataSet';
  FSQLDataSet.SetSubComponent(true);

  FDataSetProvider := TDataSetProvider.Create(self);
  FDataSetProvider.DataSet := SQLDataSet;
  FDataSetProvider.Name := 'DataSetProvider';
  FDataSetProvider.SetSubComponent(true);

  FClientDataSet := TClientDataSet.Create(self);
  FClientDataSet.Name := 'ClientDataSet';
  FClientDataSet.ProviderName := FDataSetProvider.Name;
  FClientDataSet.SetSubComponent(true);

  //настроим наш DataSource
  Dataset := ClientDataSet;
end;

Тема находится в архиве

Написать ответ