TPageControl и TFrame. Динамическая организация.

[Человек_Борща]

Доброго времени суток!

Слева окна программы, находятся этакий туллбар с кнопками, справа 1 сплиттер и TPageControl.

При клике на опр. кнопку: в PageControl'е, рождается вкладка а на ней фрейм, и все это таким кодом:

procedure TMainForm.ColorsBtnClick(Sender: TObject);
var
  Sheet: TTabSheet;
  Frame: TDogColorsEditorFrame;
begin
  CloseSheet;
  Sheet := TTabSheet.Create(PC);
  Sheet.PageControl := PC;
  Sheet.OnShow := SheetsShow;
  Sheet.OnHide := SheetsHide;
  Sheet.Parent := PC;
  Sheet.TabVisible := True;
  Sheet.Tag := TAG_ITEM_COLORS;
  Sheet.Caption := 'Редактор: Окрас собак';
  Frame := TDogColorsEditorFrame.Create(Sheet);
  Frame.Parent := Sheet;
  Width := PC.Left + Frame.Width + 25;
  Height := Frame.Height + 40;
  Frame.Align := alClient;
  Sheet.Visible := True;
  PC.ActivePage := Sheet;
end;

Возникшие вопросы:
1. Как правильно организовать программу с фреймами? Как вы это делаете? Несколько фреймов у меня не будет, будет 1 вкладка и на ней будут меняться фреймы(Да я заметил, что делаю лишнюю работу в коде, создавая вкладку заново).

2. Как динамически менять размер формы в соотв. с размером фрейма? Я правильно делаю? Можно что-то лучше сделать?

3. Мне необходимо при создании фрейма что-то сделать конкретно для него и что-то сделать при его смерти.
Как?

Я приспособил к этому делу TAG свойство TabSheet'а. И думал через ActivePage.Tag понимать что сейчас за фрейм и делать действия в OnShow, OnHide вкладки.
Но почему-то это не работает.

Есть альтернатива?

[Человек_Борща]

Есть идеи?

[Stilet]

Как вы это делаете?

Я именно создаю новую вкладку, и на ней новый фрейм.

Как динамически менять размер формы в соотв. с размером фрейма?

ИМХО лучше не форму менять а просто дать возможность использовать Скроллы фрейма.

3. Мне необходимо при создании фрейма что-то сделать конкретно для него и что-то сделать при его смерти.
Как?

Если сам фрейм не в курсе что нужно делать, то создай в нем некое событие published, которое будет вызываться:
При креации

begin
 if Assigned(OnMeCreate) then OnMeCreate(self)
end;

При деструкции

begin
 if Assigned(OnMeDestroy) then OnMeDestroy(self);
end;

Это событие ты можешь назначать при создании:

Frame:=TMyFrame.Create(self,MeCerate);
Frame.OnMeDestroy:=MeDestroyFoo;

Где MeCerate и MeDestroyFoo обработчик типа TNotifyEvent;

Еще такой момент - может стоит подумать в сторону MDI?

[Человек_Борща]

По скольку у меня всегда 1 фрейм в работе, то я сделал проще:
Вкладка тоже всегда 1 и по этому нет нужды её пересоздавать.

При создании фрейма: в свойство tag идет некий идентификатор, который определяет что за фрейм сейчас работает.

var
  btn: TButton ABSOLUTE Sender;
begin
  FrameSheet.Hide; // Destroy previous frame
  FrameSheet.Tag := TAG_ITEM_COLORS; // Resetup frame id
  FrameSheet.Caption := 'Редактор: ' + btn.Caption;
  Frame := TDogColorsEditorFrame.Create(FrameSheet);
  Frame.Parent := FrameSheet;
  // Make form compatible with frame
  Width := PC.Left + Frame.Width + 25;
  Height := Frame.Height + 60;
  //
  Frame.Align := alClient;
  FrameSheet.TabVisible := True;
  FrameSheet.Show; // init current frame
  PC.ActivePage := FrameSheet;
end;

В качестве аналогов OnCreate, OnDestroy я приспособил OnShow, OnHide от TabSheet'а.

...
    TAG_ITEM_COLORS:
      begin
        cmp := Sheet.FindComponent('DogColorsEditorFrame');
        if cmp<> nil then
        begin
          DogColorList.ListView := (cmp as TDogColorsEditorFrame).ColorsLV;
          DogColorList.Visible := True;
        end;
      end;
...

[Аватар]

А зачем PageControl c одной вкладкой? Фрейм и на TPanel к примеру можно выкладывать. А сколько вариантов фреймов? Если не много, то можно в PageControl создать соответствующее число вкладок и управлять видимостью через TabVisible обойдясь без фреймов. Не так уж и много доп.памяти сожрется

[Stilet]

Вкладка тоже всегда 1 и по этому нет нужды её пересоздавать.

Стесняюсь спросить, может ни фрейм ни вкладка тогда не нужны, раз они в единственном числе?

[Человек_Борща]

Аватар, смотря как смотреть. Есть очень "весомые" вкладки.
Вариант всего 1 окна удобен да и опыт работы в фреймами и вкладками весьма кстати
Stilet, удобство всего 1 окна без модальных форм и форм в целом.


Со своей проблемой я разобрался. Возьму к примеру QIP и Miranda , каким образом там организовано управление и разность данных и опций для отдельных вкладок(каждому своё)?

[Stilet]

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