Разделение панелей на отдельные модули в приложении на Delphi

Delphi , Компоненты и Классы , TPanel

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

Проблема

Разработчик хочет создать одиночное оконное приложение, в котором несколько панелей можно открыть из небольшого меню, а панели должны скользить со стороны. У него уже есть небольшое демо-приложение, в котором все работает, но проблема в том, что у него есть около 7 панелей на одной форме, и трудно сохранить обзор и изменить их, потому что они все друг на друге.

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

Решение

Чтобы разделить панели на отдельные модули в приложении на Delphi, мы можем использовать формы в качестве контейнеров для панелей. Каждую панель можно разместить на отдельной форме, а затем добавить форму в основную форму как дочерний элемент. Чтобы панели скользили со стороны, мы можем использовать анимацию или перемещать форму по оси X.

Пример кода

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

1. Создайте три формы (Panel1, Panel2, Panel3) и добавьте на каждую из них соответствующую панель (Panel1, Panel2, Panel3) и другие элементы управления, которые вам нужны.
2. В основном форме (MainForm) создайте меню для переключения между панелями:

var
  PanelForms: TArray<TForm>;
  CurrentPanelIndex: Integer;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // Создайте массив для хранения форм-панелей
  SetLength(PanelForms, 3);

  // Создайте формы-панели и добавьте их в основную форму
  PanelForms[0] := TPanel1.Create(Self);
  PanelForms[0].Parent := Self;
  PanelForms[0].Name := 'PanelForm1';
  PanelForms[0].Visible := False;

  PanelForms[1] := TPanel2.Create(Self);
  PanelForms[1].Parent := Self;
  PanelForms[1].Name := 'PanelForm2';
  PanelForms[1].Visible := False;

  PanelForms[2] := TPanel3.Create(Self);
  PanelForms[2].Parent := Self;
  PanelForms[2].Name := 'PanelForm3';
  PanelForms[2].Visible := False;

  // Создайте меню для переключения между панелями
  Menu1 := TMenuItem.Create(Self);
  Menu1.Caption := 'Панель 1';
  Menu1.OnClick := Panel1Click;
  MainMenu1.Items.Add(Menu1);

  Menu2 := TMenuItem.Create(Self);
  Menu2.Caption := 'Панель 2';
  Menu2.OnClick := Panel2Click;
  MainMenu1.Items.Add(Menu2);

  Menu3 := TMenuItem.Create(Self);
  Menu3.Caption := 'Панель 3';
  Menu3.OnClick := Panel3Click;
  MainMenu1.Items.Add(Menu3);
end;

procedure TMainForm.Panel1Click(Sender: TObject);
begin
  // Скрыть текущую панель и показать панель 1
  PanelForms[CurrentPanelIndex].Visible := False;
  PanelForms[0].Visible := True;
  CurrentPanelIndex := 0;
end;

procedure TMainForm.Panel2Click(Sender: TObject);
begin
  // Скрыть текущую панель и показать панель 2
  PanelForms[CurrentPanelIndex].Visible := False;
  PanelForms[1].Visible := True;
  CurrentPanelIndex := 1;
end;

procedure TMainForm.Panel3Click(Sender: TObject);
begin
  // Скрыть текущую панель и показать панель 3
  PanelForms[CurrentPanelIndex].Visible := False;
  PanelForms[2].Visible := True;
  CurrentPanelIndex := 2;
end;

Анимация скольжения панелей

Чтобы панели скользили со стороны, мы можем использовать анимацию. FireMonkey предоставляет компонент TAnimation для этой цели. Чтобы добавить анимацию скольжения к нашим панелям, мы можем создать анимацию по оси X и применить ее к форме-панели.

1. В основном форме (MainForm) создайте компонент анимации (TAnimation) и настройте его свойства:

Animation1 := TAnimation.Create(Self);
Animation1.Active := True;
Animation1.Loop := True;
Animation1.TransitionKind := tkSlide;
Animation1.TransitionDirection := tdHorizontal;
Animation1.TransitionSpeed := 200;
Animation1.StartPosition := 0;
Animation1.EndPosition := Self.ClientWidth;
Animation1.AnimationType := atPosition;

1. Добавьте обработчик события OnAnimate для анимации и переместите форму-панель в соответствии с текущей позицией анимации:

procedure TMainForm.Animation1Animate(Sender: TObject);
begin
  // Переместите форму-панель в соответствии с текущей позицией анимации
  PanelForms[CurrentPanelIndex].Left := Animation1.Position;
end;

1. В обработчиках событий Panel1Click, Panel2Click и Panel3Click запустите анимацию перед показом соответствующей формы-панели:

procedure TMainForm.Panel1Click(Sender: TObject);
begin
  // Скрыть текущую панель и запустить анимацию
  PanelForms[CurrentPanelIndex].Visible := False;
  Animation1.StartPosition := Self.ClientWidth;
  Animation1.EndPosition := 0;

  // После завершения анимации показать панель 1
  Animation1.OnAnimate := nil;
  Animation1.OnEndAnimate := nil;
  Animation1.OnEndAnimate := procedure
    begin
      PanelForms[0].Visible := True;
      CurrentPanelIndex := 0;
      Animation1.OnEndAnimate := nil;
    end;

  Animation1.Active := True;
end;

Повторите аналогичные шаги для Panel2Click и Panel3Click.

Теперь, когда вы выбираете панель из меню, соответствующая форма-панель будет скользить со стороны и отображаться на экране.

Заключение

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

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

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

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

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

:: Главная :: TPanel ::