Сериализация

[Gregor]

Добрый всем день. Вопрос в следующем. Есть компонент A. Он содержит в секции published компонент B. B создается в конструкторе A Как организовать сериализацию A вместе с B и его потрохами в Dfm ? Читал на rsdn статью про fix -up. не совсем понял. я так понимаю нужно в эту сторону копать. если есть примерчик, буду очень признателен. спасибо.

[mss]

Курить методы TPersistent.DefineProperties и TPersistent.DefineProperty

[Gregor]

ребяты а не поможите с простеньким примером примером где компонент в компоненте и который сохраняется в dfm? или ссылку. а то что не пробую какая то ерунда получается.

[eduard93]

Простой пример: http://www.delphisources.ru/pages/fa...roperties.html
Посложнее: http://www.delphikingdom.com/asp/vie...?catalogid=888

[Gregor]

вот такой код

unit MyComponents;

interface
uses
  ExtCtrls, StdCtrls, Classes;
type
  TMyComponent = class(TPanel)
  strict private
    FButton: TButton;

  protected
    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Button: TButton read FButton write FButton;
  end;
procedure Register;

implementation

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
  FButton := TButton.Create(Self);
  FButton.Visible := false;
end;

destructor TMyComponent.Destroy;
begin
  FButton.Free;
  inherited;
end;

procedure TMyComponent.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
  Proc(FButton);
end;

procedure Register;
begin
  RegisterComponentsProc('MyCOMPONENTS-', [TMyComponent]);
end;

end.

1.при запуске формы с этим компонентом пишет что 'class TButton not found'. 2.Вроде сохраняется в DFM. после того как я выхожу из режима View as Text кнопка становится видимой. почему? я ведь парента ей не назначил.

[mss]

я ведь парента ей не назначил

Полагаю, в ран-тайм ты ее и не увидишь по этой самой причине)

[eduard93]

Сообщение от Gregor

1.при запуске формы с этим компонентом пишет что 'class TButton not found'.

Добавьте в инициализацию модуля вызов Classes.RegisterClass

[Gregor]

Товарищи, кто нибудь . когда нибудь сериализовал подкомпонент(TComponent)? те ссылки, которые были даны выше не совсем про то. там в роли подкомпонент не TComponent!

[eduard93]

RegisterClass не помог?

[Gregor]

Написал вот такой конструктор

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
  FButton := TButton.Create(Self);
  FButton.Name := 'SubButton';
  FButton.Parent := Self;
  FButton.SetSubComponent(true); //помогло вот это.
//  FButton.Visible := false;
end;

В принципе то что нужно. И в дереве Structure его нет и все изменения сохраняются в Dfm, только вот из-за Parenta становиться сразу видимой в дизайн тайме когда бросаешь панель, я я бы хотел сделать её дизайн тайме невидимой. закоментированная строчка не помогает. в dfm стоит Visible = false, но кнопку видно. может какой то метод переопределить? не могу сообразить.