Страшный PageControl

[Djem1991]

Здрям)

Пошарил форум, по данной теме много говорили... вот только для своего случия я ничего не нашёл..может плохо смотрел)

Вот в чём проблема. Создаю динаммически вкладки с мэмо и эдитом.
вот код создания:

procedure AddPage(ACaption: string; AControl:
TPageControl);
begin
  NewPage:=TTabSheet.Create(AControl.Owner);
  NewPage.PageControl := AControl;
  NewPage.Caption := ACaption;
  NewPage.Show;
end;

procedure TForm1.AddMemo;
begin
  if PageControl1.PageCount=1 then N:=PageControl1.ActivePage.TabIndex
  else N:=PageControl1.PageCount-1;
  Memos[n]:=TMemo.Create(Memos[n]);
  with Memos[n] do Begin
    Parent:=NewPage;
    Top:=PosMemoY;
    Left:=PosMemoX;
  end;
end;

procedure TForm1.AddEdit;
Begin
  if PageControl1.PageCount=1 then N:=PageControl1.ActivePage.TabIndex
  else N:=PageControl1.PageCount-1;
  Edits[n]:=TEdit.Create(Edits[n]);
  with Edits[n] do Begin
    Parent:=NewPage;
    Top:=PosEditY;
    Left:=PosEditX;
  end;
end;

всё хорошо, всё супер) массив из мэмок и эдитов благополучно заполняется, потом всё записывается в ини файл и т.д.
Проблема в удалении...

if (PageControl1.PageCount>1) and (PageControl1.ActivePageIndex>0) then
 PageControl1.ActivePage.Destroy;

хотя, удаляет, и даже даёт создать по новой вкладки,но не всегда(

Проблема в том, что после удаления вкладки нельзя добавить новую вкладку, делфи ругается, хотя если удалить и прогу перезапустить, то всё норм...
Откройте мне глаза...я уже в тупике(

[mihali4]

Вы бы в хэлп заглядывали бы - там много полезного...
Например:

Destroy destructor (TTabSheet)
Description
Do not call Destroy directly at runtime. Instead, call Free. Free verifies that the tab sheet is not nil and only then calls Destroy. Destroy removes the tab sheet from the page control and then calls the inherited Destroy method.

Да и пример криэйта тоже есть:

  with PageControl1 do
    for i := 0 to 9 do
      with TTabSheet.Create(Self) do
      begin
        PageControl := PageControl1;
        TabVisible := (PageIndex mod 2 = 0);
        Caption := 'PageIndex: ' +
        IntToStr(PageIndex) + '  TabIndex: ' +
          IntToStr(TabIndex);
      end;

[Alter]

Зря вы создаёте компоненты вручную каждый раз.
Я советую использовать фрейм(почти как форма), достаточно разместить все контролы на него, и настроить их реакции в фрейме.
Установить свойство Align в alClient, для заполнения поверхности вкладки.
Затем всё просто:
• Создать вкладку
• Создать фрейм
• Присвоить родителем созданого фрейма вашу вкладку
• всё

[Lemo]

Вот такой вопрос, как сделать так что бы при режиме проектирование были видны вкладки, а при режеме компиляции мы их не видим?!
Ну тойсть на 1 станице у нас 3 кнопки в которых заложено открытие следующих 3-х страниц, но мы не должны видеть вкладки страниц!

[mihali4]

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

Вот такой вопрос, как сделать так что бы при режиме проектирование были видны вкладки, а при режеме компиляции мы их не видим?!
Ну тойсть на 1 станице у нас 3 кнопки в которых заложено открытие следующих 3-х страниц, но мы не должны видеть вкладки страниц!

Вы о свойстве Visible хоть какое понятие имеете?
В приведенном примере (из хэлпа) видны только нечетные...

[Lemo]

и? при visable=false http://www.valar.ru/upload/png/0209/1234279772_.htm
форма полность пусная при запуске выходит!

[mihali4]

М-м-да-а... Тяжелый случай...
А то, что каждый TabSheet имеет такое свойство, посмотреть никак?
И даже специально предназначенное свойство TabVisible ?
А оно фигурирует в примере. И я о нем еще раз уже упоминал...

[Demagog]

наверно я задам самый тупой вопрос в теме...а как прописывается доступ к компонентам страницы? на пример к полю Edit1 вкладки pagecontrol1 страница1{tabsheet1}...перепробовал множество вариантов и перерыл все форумы, но такой элементарщины не пишут...

[mihali4]

А при чем тут вкладки? Edit1 - он и в Африке Edit1...
И больше одного Edit1 на форме не бывает!