Перемещение вкладки (TabSheet) между PageControl с сохранением компонентов

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

Приветствую, уважаемые разработчики на Delphi и Pascal! В данной статье мы рассмотрим интересную задачу, связанную с перемещением вкладок (TabSheet) из одного PageControl в другой, при этом сохраняя все компоненты, которые на них расположены. Это может быть полезно, например, для создания дополнительных окон с вкладками, которые пользователь может открыть для одновременной работы с несколькими страницами.

Проблема пользователя

Пользователь Thomas использует Delphi 7 и столкнулся с необходимостью "отсоединить" вкладки от PageControl, чтобы переместить их в новое окно, созданное во время выполнения программы. Перемещенная вкладка должна сохранять все свои компоненты (кнопки, метки и т.д.) и функционировать так же, как если бы она оставалась на своем месте в PageControl. Идея заключается в том, чтобы пользователь мог вывести вкладку за пределы области формы, создавая новое окно для нее. После завершения работы с вкладкой, пользователь закрывает дополнительное окно, и вкладка возвращается на свое первоначальное место в PageControl.

Подход к решению

Для решения задачи Thomas предложено несколько подходов:

1. Перемещение всех контролов в отдельный Frame.
2. Настройка свойств Frame для возможности перетаскивания.
3. Настройка DockSite формы с PageControl.

Альтернативный ответ - модуль для отсоединения контролов

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

Подтвержденный ответ - использование шаблона формы

Один из подтвержденных подходов заключается в использовании шаблона формы (TTemplate), который позволяет размещать вкладки на пустом PageControl, созданном во время выполнения программы. Каждая вкладка представляет собой отдельную форму, наследующую от TTemplate, которая обеспечивает свойства для DockControl и индекс вкладки. С помощью методов ManualDock можно добавить вкладку на PageControl или удалить ее. Метод CloseQuery используется для повторного подключения вкладки и восстановления индекса вкладки. В данном примере двойной клик по вкладке вызывает ее отсоединение.

Пример кода

procedure TDemoForm.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for I := 0 to 9 do
    begin
      With TTemplate.Create(self) do
        begin
          Color := Random(255 * 255);
          MyDockControl := PageControl1;
          DockTabIndex := I;
          Ctl3d := False;
          Caption := Format('Tab %d', [I]);
          Show;
        end;
    end;
end;

И пример шаблона формы:

type
  TTemplate = class(TForm)
    // Компоненты формы
    procedure FormDblClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    FMyDockControl: TWinControl;
    FDockTabIndex: Integer;
    procedure SetMyDockControl(const Value: TWinControl);
    procedure Redock;
  public
    property MyDockControl: TWinControl read FMyDockControl write SetMyDockControl;
    property DockTabIndex: Integer read FDockTabIndex write FDockTabIndex;
  end;

В методе Redock производится повторное подключение вкладки к PageControl, если это необходимо, и устанавливается индекс вкладки.

Данный подход позволяет реализовать функционал, который требуется пользователю, и предоставляет гибкость для дальнейшего расширения и настройки.

Мы рассмотрели различные подходы к перемещению вкладок между PageControl с сохранением их компонентов. Выбор конкретного метода зависит от конкретных требований и условий вашего проекта. Надеемся, что эта информация окажется полезной для вас!

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

Перемещение вкладки (TabSheet) вместе с её компонентами из одного PageControl в другой.

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

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

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