Ассоциировать TreeView и PageControl

@ZSFT · Регистрация: 13.10.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте Уважаемые.
Помогите, пожалуйста, перестроить код.

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
// На форме стоит TreeView, PageControl и кнопка. 
// При смене страницы - меняется текущий узел, а при смене узла меняется страница. 
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    PageControl1: TPageControl;
    Button1: TButton;
    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.

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

Нужно переделать код, чтобы не создавались листы PageControl и узлы TreeView
а просто ассоциировались с уже имеющимися.

Т.е. что-то вроде этого:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  TabSheet: TTabSheet;
begin
  Node.Data := TabSheet; //ассоциируем узел с страницей
    // Доступ к ассоциированной странице через узел
  PageControl1.ActivePage := TTabSheet(Node.Data);
end;
 
procedure TForm1.PageControl1Change(Sender: TObject);
var
  TabSheet: TTabSheet;
  Node: TTreeNode;
begin
  TabSheet.Tag := Integer(Node); // ассоциируем страницу с узлом
    // Доступ к ассоциированному узлу через страницу
  TreeView1.Selected := TTreeNode(Pointer(PageControl1.ActivePage.Tag));
end;

Вот, научите, пожалуйста, как создать простую ассоциацию TreeView и PageControl.

@Пытливый · 20.02.2021, 11:00

Исходники скинуть не сложно, но меня интересовал результат запуска редактора. Все правильно работает? Устанавливать эту игру как-то не хочется, уж очень она древняя.

@Пытливый · 20.02.2021, 15:38

Забыл, что у вас D7. Вот адаптация под вашу версию.

@ZSFT · 20.02.2021, 19:37 **[ТС]**

Ура! Ура! Теперь всё работает.
Спасибо Огромное!

Добавлено через 3 часа 35 минут
Братцы, большое спасибо за помощь, это всё работает, но под название темы не подходит.
Как связать TreeView и PageControl,
первый ответ связывает на основании компонента PageControl но ведь узлы TreeView есть главными.

Я в интернете нашел добавление:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
TreeView1.Items.Clear; // очистка списка
// добавление корневого узла 'производство' (индекс 0)
TreeView1.Items.Add(nil, 'производство');
{добавление дочерних узлов 'цех 1' — 'цех 3' (индексы 1 — 3)}
TreeView1.Items.AddChild(TreeView1.Items.Item[0], 'цех 1');
TreeView1.Items.AddChild(TreeView1.Items.Item[0], 'цех 2');
TreeView1.Items.AddChild(TreeView1.Items.Item[0], 'цех 3');
{добавление корневого узла 'управление' после узла 'производство' (индекс 4) }
TreeView1.Items.Add(TreeView1.Items.Item[0], 'управление');
{добавление дочерних узлов 'администрация' и 'бухгалтерия' узла 'управление' }
TreeView1.Items.AddChild(TreeView1.Items.Item[4], 'администрация');
TreeView1.Items.AddChild(TreeView1.Items.Item[4], 'бухгалтерия');
 
Дерево может быть сколь угодно разветвленным. Например, следующие операторы добавляют дочерние узлы «бригада 1» и «бригада 2» в сформированный ранее узел «цех 1»:
 
TreeView1.Items.AddChild(TreeView1.Items.Item[1], 'бригада 1');
TreeView1.Items.AddChild(TreeView1.Items.Item[1], 'бригада 2');
 
Текст, связанный с некоторым узлом, можно найти с помощью его свойства Text. Например, TreeView1.Items.Item[1].Text — это надпись «цех 1».

но как это связать с PageControl....

Добавлено через 17 минут
Нужно этот проект связать с PageControl:
Ассоциировать TreeView и PageControl
Простите за настойчивость, но пусть тема закончится ответом, если можно, конечно.

@Пытливый · 20.02.2021, 19:41

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

но как это связать с PageControl....

Вы или не читаете, что я вам писал ранее или не понимаете. Если первое, то читайте ранние посты, если второе, то снова читайте ранние посты, пока не поймете. Повторять все по третьему кругу нет никакого желания.

@ZSFT · 20.02.2021, 21:37 **[ТС]**

Пытливый Ваши возможности интеллекта для меня как Космос, поэтому прошу прощения за свою непонятливость.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@ZSFT 2 / 2 / 0 Регистрация: 13.10.2015 Сообщений: 65
	20.02.2021, 21:37 [ТС]
	Пытливый Ваши возможности интеллекта для меня как Космос, поэтому прошу прощения за свою непонятливость. 0