| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись/Чтение неопубликованных свойств компонента [D6, D7, Win2k, WinXP]

olegz77 ©   (2006-01-20 15:50:00) 

Пишу компонент-панель, в которую вставлены две панели - на одной выводится текст (caption), а другая используется как клиентская для вставки других контролов. Обе вложенные панели описаны в разделе private. Как правильно сохранить/загрузить в DFM файл компоненты, вложенные в клиентскую панель???

---

olegz77   (2006-01-20 16:20:00) [1]

Да, думаю проще сделать компонент без вложенных панелей, просто ограничив клиентскую область с помощью AdjustClientRect и вставлять дочерние контролы прямо в саму панель. Тогда никаких проблем. Нашел тут в сборнике Delphi World 6 старый пример (наверное для delphi2 или даже delphi1). Но пример не работает:
unit RzPnlPnl;

interface

uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
 Forms, Dialogs, ExtCtrls;

type
 TSubPanel = class(TPanel)
 protected
   procedure ReadState(Reader: TReader); override;
 end;

 TPanelPanel = class(TPanel)
 private
   FSubPanel: TSubPanel;
 protected
   procedure WriteComponents(Writer: TWriter); override;
   procedure ReadState(Reader: TReader); override;
 public
   constructor Create(AOwner: TComponent); override;
 end;

procedure Register;

implementation

procedure TSubPanel.ReadState(Reader: TReader);
var
 OldOwner: TComponent;
begin
 OldOwner := Reader.Owner;
   { Сохраняем старого владельца, что необходимо для PanelPanel }
 Reader.Owner := Reader.Root; { Задаем в качестве владельца форму }
 try
   inherited ReadState(Reader);
 finally
   Reader.Owner := OldOwner;
 end;
end;

constructor TPanelPanel.Create(AOwner: TComponent);
const
 Registered: Boolean = False;
begin
 inherited Create(AOwner);

 FSubPanel := TSubPanel.Create(Self);
 FSubPanel.Parent := Self;
 FSubPanel.SetBounds(20, 20, 200, 100);
 FSubPanel.Name := 'SomeName';

 if not Registered then
 begin
   Classes.RegisterClasses([TSubPanel]);
     { так TSubPanel может храниться в файле формы }
   Registered := True;
 end;

end;

procedure TPanelPanel.ReadState(Reader: TReader);
var
 OldOwner: TComponent;
 I: Integer;
begin
 for I := 0 to ControlCount - 1 do
   Controls[0].Free;

 OldOwner := Reader.Owner;
 Reader.Owner := Self;
   {Для чтения субкомпонентов, установите данный экземпляр в качестве родителя}
 try
   inherited ReadState(Reader);
 finally
   Reader.Owner := OldOwner;
 end;
end;

procedure TPanelPanel.WriteComponents(Writer: TWriter);
var
 I: Integer;
begin
 for I := 0 to ControlCount - 1 do
   Writer.WriteComponent(Controls[I]);
end;

procedure Register;
begin
 RegisterComponents('Samples', [TPanelPanel]);
end;

end.


Допустим, что метода WriteComponents уже нет. Скорее всего это метод WriteState. Но все равно не работает :(

---

Юрий Зотов   (2006-01-20 16:15:00) [2]

Предвижу проблемы с сохранением в DFM. Похоже, придется разбираться с GetParentCompoment, GetChildren и иже с ними. Гораздо проще сделать фрейм и зарегистрировать его в палитре.

---

Digitman   (2006-01-20 16:09:00) [3]

см. TPersistent.DefineProperty, TFiler.Read/WriteXXXX

---

Наверх