TTreeview demo

Source code

{
TTreeView example
A SDP Code Tutorial....get inspired!

This application demonstrates the use of the TTreeView component.
TTreeview is a very complicated component, only the
basic methods are shown in this demonstration.
See the online help for all the features.


(c)BeenSoft 06-03-2000 All rights reserved.
beensoft@yahoo.com
http://surf.to/beensoft
}

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    SaveDialog: TSaveDialog;
    OpenDialog: TOpenDialog;
    Button3: TButton;
    Button4: TButton;
    GroupBox1: TGroupBox;
    lblTreeNodeSelected: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lblLevel: TLabel;
    Label4: TLabel;
    lblItemIndex: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
/////////////////////////////////////////////////////
// Add treenode to the selected treenode
////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Items.AddChild(Treeview1.Selected,Edit1.Text);
  Edit1.SetFocus;  //shift focus to edit after Adding
end;

/////////////////////////////////////////////////////
// TreeView Change event
// - Give information of the selected treenode
////////////////////////////////////////////////////
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin
  lblTreeNodeSelected.Caption := TreeView1.Selected.Text;
  lblItemIndex.Caption := IntToStr(TreeView1.Selected.Index);
  lblLevel.Caption := IntToStr(TreeView1.Selected.Level);
end;

/////////////////////////////////////////////////////
// Save the treeview to file
////////////////////////////////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
begin
  SaveDialog.Execute;
  Treeview1.SaveToFile(SaveDialog.FileName);
end;

/////////////////////////////////////////////////////
// Load the treeview from file
////////////////////////////////////////////////////
procedure TForm1.Button3Click(Sender: TObject);
begin
  OpenDialog.Execute;
  Treeview1.Items.Clear;
  Treeview1.LoadFromFile(OpenDialog.FileName);
end;

/////////////////////////////////////////////////////
// Delete the selected treenode
////////////////////////////////////////////////////
procedure TForm1.Button4Click(Sender: TObject);
begin
  Treeview1.Selected.Delete;
end;

end.