Динамическое создание вкладок с формами в TPageControl: руководство

Delphi , Компоненты и Классы , Вкладки и Страницы

Работая над модулем, включающим в себя компонент TPageControl, вы столкнулись с необходимостью динамически добавлять вкладки и встраивать в них формы. Эта задача может показаться сложной, но с помощью нашего пошагового руководства вы сможете легко решить её.

Создание вкладки в TPageControl

Для начала создадим новую вкладку. В обработчике нажатия кнопки (или другого события, при котором нужно создать вкладку) используем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet: TTabSheet;
begin
  TabSheet := TTabSheet.Create(PageControl1);
  TabSheet.Caption := 'Новая вкладка';
  TabSheet.PageControl := PageControl1;
  // Добавляем вкладку в конец списка вкладок
  PageControl1.Tabs.AddObject(TabSheet, nil);
end;

Встраивание формы в TTabSheet

Теперь, когда у нас есть вкладка, вставим в неё форму. Для этого просто изменим родителя формы:

Form2.Parent := TabSheet;
Form2.Show;

Уничтожение форм при удалении вкладки

Необходимо ли нам самостоятельно освобождать формы, встроенные во вкладку, при её уничтожении? Нет, достаточно освободить саму вкладку. Формы, которые имеют вкладку в качестве родителя, будут освобождены вместе с ней. Это связано с тем, что родительский компонент TWinControl (к которому относится TTabSheet) автоматически освобождает все дочерние элементы при своём уничтожении.

Освобождение вкладок

Освобождение вкладок безопасно. Формы, являющиеся дочерними элементами вкладок, будут освобождены при освобождении самой вкладки.

Пример кода для уничтожения вкладок и форм

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  // Уничтожаем все вкладки
  for i := PageControl1.Tabs.Count - 1 downto 0 do
  begin
    PageControl1.Tabs.Objects[i].Free;
  end;
end;

Важно помнить, что родительский компонент автоматически обрабатывает уничтожение дочерних элементов. Это означает, что вам не нужно заботиться об освобождении форм вручную, если они являются дочерними элементами вкладок.

Используя данное руководство, вы сможете динамически создавать вкладки и встраивать в них формы, а также правильно управлять их уничтожением в вашем приложении на Delphi.

Создано по материалам из источника по ссылке.

Пошаговое руководство по динамическому созданию вкладок с формами в компоненте TPageControl и их управлению.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Вкладки и Страницы ::