Как связать TreeView и PageControl?
Материал из DRKB
Как связать TreeView и PageControl?[править | править код]
На форме стоит 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(s: String);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.AddItem(s: String);
var
TabSheet: TTabSheet;
Node: TTreeNode;
begin
TabSheet := TTabSheet.Create(Self);
TabSheet.PageControl := PageControl1;
TabSheet.Caption := s;
Node := TreeView1.Items.Add(nil, s);
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.
Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00622