редактор компонентов

[devi409]

хочу сделать редактор компонентов. Возможно эта тема уже ранее поднималась. Заранее прошу прощения.
Создавать удалять перемещать изменять размеры компонентов я умею.
А вот вопрос как сохранить и загрузить те компоненты которые я создал на форме?
Знаю функции
WriteComponent и ReadComponent
впринципе можно былобы через них все сделать но вот только как...
подскажите пожалуйста.

[alexBlack]

Посмотрите статью по теме:

Сериализация объектов стандартными средствами Delphi

Надеюсь, поможет...

[devi409]

Спасибо за статейку. Полезная весчь, однако мало понятная
я так и не разобрался как де сохранить и загрузить компоненты.
Знаю что можно воспользоваться такой вот процедуркой
WriteComponent(form1)
тем самым я помещу все данные о компонентах к примеру в поток.
а вот из потока как и выдрать? Если воспользоваться процедуркой
ReadComponent
то возникает исключительная ситуация при которой говорится что как минимум элемент Form1 уже существует и снова создать его никак незя. Тоже самое относится и к компонентам расположенным на форме. Хотелось бы их заменить.
Можно создать новую форму и загрузить поток в нее то да все отлично работает Но мне новая не нужна, нужна старая...
Как поступить в этом случае?

[alexBlack]

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

...то возникает исключительная ситуация при которой говорится что как минимум элемент Form1 уже существует и снова создать его никак незя. Тоже самое относится и к компонентам расположенным на форме. Хотелось бы их заменить....

С Form1 проблем быть не должно. С компонентами - да, но их можно удалить и создать заново. Вот пример:

const FileName : String = 'test.dat';
procedure TForm2.FormCreate(Sender: TObject);
var F: TFileStream;
begin
   F := TFileStream.Create(FileName, fmCreate);
   try
     F.WriteComponent(Self);
   finally
     F.Free;
   end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var F: TFileStream;
begin
   While ComponentCount > 0 do begin
      Components[0].Free;
   end; 

   F := TFileStream.Create(FileName, fmOpenRead);
   try
     F.ReadComponent(Self);
   finally
     F.Free;
   end;
end;

[Rik]

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

хочу сделать редактор компонентов. Возможно эта тема уже ранее поднималась. Заранее прошу прощения.
Создавать удалять перемещать изменять размеры компонентов я умею.
А вот вопрос как сохранить и загрузить те компоненты которые я создал на форме?
Знаю функции
WriteComponent и ReadComponent
впринципе можно былобы через них все сделать но вот только как...
подскажите пожалуйста.

Готовое решение: http://visualtech.townnet.ru , исходники платные. Есть всё: дизайнер форм, инспектор, редактор кода...

[devi409]

да я так именно и пробовал сохранить. Но у меня на форме прописан новый класс TMyPanel и при загрузке соответственно он ругается "Class TMyPanel not found"
как быть?

[Rik]

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

да я так именно и пробовал сохранить. Но у меня на форме прописан новый класс TMyPanel и при загрузке соответственно он ругается "Class TMyPanel not found"
как быть?

При старте программы, для того чтобы TReader нормально могли создавать классы из потока, клаcсы должны быть зарегистрированы в системе с помощью RegisterClass(TMyPanel) или RegisterClasses([TmyPanel, TPanel, TButton]). По окончании работы с системой классы должны быть дерегистрированы UnRegisterClass(TMyPanel) или UnRegisterClasses([TMyPanel, .....])
Регистрацию можно вложить в OnCreate главной формы приложения или в секцию инициализации модуля
Дерегистрацию можно вложить в OnDestroy главной формы или в секцию fianlization.

[devi409]

Большое спасибо Rik!!! помогло.
А где лучше всего их регестрировать и дерегистрировать
я сделал в событии создании формы и в событии загрытии формы

Да и в примере alexBlack для уничтожения компонентов используется метод Free. Чем он отличается от Destroy?

[alexBlack]

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

Большое спасибо Rik!!! помогло.
А где лучше всего их регестрировать и дерегистрировать
я сделал в событии создании формы и в событии загрытии формы

Как Вам удобнее. Если форма создается один раз, то нормально. Если нет, то лучше перенести в секцию инициализации модуля.

Да и в примере alexBlack для уничтожения компонентов используется метод Free. Чем он отличается от Destroy?

В принципе ничем. Из VCL:

procedure TObject.Free;
begin
  if Self <> nil then Destroy;
end;

Из справки: <Use Free to destroy an object....>

[devi409]

Уважаемые, вот я имею компонент TMyPanel. Можно какнить настроить для него что бы его свойство Caption имело свойство Visible.
Что для этого нужно сделать?