Как связать TreeView и PageControl

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

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

На форме стоит TreeView, PageControl и кнопка. При смене страницы - меняется текущий узел, а при смене узла меняется страница.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    PageControl1: TPageControl;
    procedure Button1Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure PageControl1Change(Sender: TObject);
  private
    procedure addItem(t: string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.addItem(t: string);
var
  TabSheet: TTabSheet;
  Node: TTreenode;
begin
  TabSheet := TTabSheet.Create(Self);
  TabSheet.PageControl := PageControl1;
  TabSheet.caption := t;
  Node := TreeView1.Items.Add(nil, t);
  Node.data := TabSheet; //ассоциируем узел с страницей
  TabSheet.tag := Integer(Node); // ассоциируем страницу с узлом

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.HideSelection := false;
  addItem('Item1');
  addItem('Item2');
  addItem('Item3');
  addItem('Item4');
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  PageControl1.ActivePage := TTabSheet(Node.data);
    // Доступ к ассоциированной странице через узел
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  TreeView1.Selected := TTreeNode(Pointer(PageControl1.ActivePage.tag));
    // Доступ к ассоциированному узлу через страницу
end;

end.

Код, который вы предоставили, это приложение на Delphi, использующее компоненты TVirtualTreeView и TPageControl, чтобы создать TreeView-контроль с множеством страниц, каждая из которых соответствует конкретному узлу в дереве.

Следующий процесс работает так:

1. Когда форма загружается, срабатывает событие Button1Click, которое добавляет четыре узла в TreeView с помощью процедуры addItem.
2. Каждый узел связан с новой страницей в PageControl с помощью свойства Node.data.
3. Когда пользователь выбирает узел в TreeView (то есть срабатывает событие TreeView1Change), соответствующая страница в PageControl активируется с помощью свойства PageControl1.ActivePage.
4. Conversely, когда активная страница в PageControl изменяется (то есть срабатывает событие PageControl1Change), соответствующий узел в TreeView выбирается с помощью свойства TreeView1.Selected.

Связь между узлами и страницами достигается путем установки свойства Node.data на указатель на объект TTabSheet, который соответствует странице. Это позволяет получить связанную страницу из узла, когда это необходимо.

Некоторые предложения по улучшению:

• Вместо использования процедуры addItem для создания новых страниц, рассмотрите более эффективный подход,such as creating a list of pages and iterating over it to populate the TreeView.
• Рассмотрите добавление обработки ошибок в событии Button1Click, если пользователь нажимает кнопку несколько раз.
• Вы можете добавить некоторые визуальные отображения при выборе узла или изменении страницы, such as changing the background color of the form or highlighting the selected node/page.
• Если у вас планируется иметь большое количество узлов/страниц, рассмотрите использование более эффективной структуры данных, such as a list or dictionary instead of a TreeView.

В целом, ваш код выглядит хорошо и должен работать как ожидается. Однако всегда полезно обзавестись кодом на потенциальные проблемы и рассмотреть способы улучшения производительности и удобства использования.

В статье описывается способ связать TreeView и PageControl в Delphi, при смене страницы в PageControl изменяется выбранный узел в TreeView, а при смене узла в TreeView изменяется активная страница в PageControl.

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

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

:: Главная :: TTreeView ::