Как связать TreeView и PageControl
Автор: 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 .
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как связать TreeView и PageControl", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:
Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи , в сообщение обязательно указывайте название или ссылку на статью!