Создание treeview в Delphi

Форма:

Листингпрограммы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, XPMan, SRColBtn, SRGrad, IniList, ImgList;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Memo1: TMemo;

TreeView1: TTreeView;

XPManifest1: TXPManifest;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button6: TButton;

Button10: TButton;

SRGradient1: TSRGradient;

ImageList1: TImageList;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

f:TextFile; s,c:String; i:integer;

implementation

uses Unit2;

{$R *.dfm}

//кнопка «Добавить элемент»

procedure TForm1.Button1Click(Sender: TObject);

var captionStr:string;

NewNode:TTreeNode;

Begin

//обнуляем строку, которая будет использоваться для хранения имени будущего элемента //дерева

CaptionStr:='';

//выводим на экран окно ввода. Если окно было закрыто не кнопкой OK, то происходит //выход из процедуры

if not InputQuery('Добавить элемент', 'Введите заголовок элемента', CaptionStr) then exit;

//добавляем новый элемент в наше дерево

NewNode:=Treeview1.Items.Add(Treeview1.Selected, CaptionStr);

//если компонент не является верхним в дереве, то изменяем значение ImageIndex //созданного нами элемента на 1 (по умолчанию это значение 0)

if newnode.Parent<>nil then newnode.ImageIndex:=1;

end;

//кнопка «Удалить»

procedure TForm1.Button2Click(Sender: TObject);

begin

//проверяю есть ли выделенный элемент в дереве

if treeview1.Selected<>nil then

begin

//если да, то выводим на экран сообщение

if MessageDlg('Вы действительно хотите удалить запись?', mtWarning,[mbYes,mbNo],0)=mrYes then

//удаляем элемент дерева

treeview1.items.delete(treeview1.selected);

end;

//очищаем memo1.

memo1.Text:='';

end;

//кнопка «Выход»

procedure TForm1.Button3Click(Sender: TObject);

begin

//выход из программы

close;

end;

//кнопка «Сохранить в файл»

procedure TForm1.Button4Click(Sender: TObject);

begin

//сохраняем изменения в файл tree.dat

TreeView1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//кнопка «Загрузить из файла»

procedure TForm1.Button5Click(Sender: TObject);

begin

//если файл с указанным именем существует, то загружаем его

if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then

TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//кнопка «Изменить заголовок»

procedure TForm1.Button6Click(Sender: TObject);

var captionStr:string;

begin

CaptionStr:='';

if not InputQuery('Изменение заголовка', 'Введите заголовок элемента', CaptionStr) then exit;

//чтобы изменить имя надо изменить свойство Text для выделенного элемента

treeview1.Selected.Text:=CaptionStr;

end;

//кнопка «О программе»

procedure TForm1.Button7Click(Sender: TObject);

begin

//выводим новое окно с сообщением о создателе программы

ShowMessage('Программу выполнила студентка гр. ВТиПО-42р.'+#13+'Ахметова Индира'+#13+'2010 год');

end;

//кнопка «Добавить подэлемент»

//здесь код практически такой же, что и для кнопки «Добавить элемент»

procedure TForm1.Button8Click(Sender: TObject);

var captionStr:string;

NewNode:TTreeNode;

begin

CaptionStr:='';

if not InputQuery('Добавить подэлемент', 'Введите заголовок подэлемента', CaptionStr) then exit;

//разница лишь в том, что при добавлении нового элемента мы используем метод //AddChild, т.е. добавляем дочерний элемент

NewNode:=Treeview1.Items.AddChild(Treeview1.Selected, CaptionStr);

if newnode.Parent<>nil then newnode.ImageIndex:=1;

end;

//при закрытии программы сделаем возможность сохранения данных дерева

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

treeview1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//при открытии программы сделаем возможность загрузки данных из дерева

procedure TForm1.FormShow(Sender: TObject);

begin

if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then

TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//при нажатии на элемент дерева

procedure TForm1.TreeView1Click(Sender: TObject);

begin

memo1.Clear;

//если файл существует, то данные добавляются в файл

if FileExists(IntToStr(TreeView1.Selected.AbsoluteIndex)) then

begin

AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));

//открыть файл для чтения

reset(f);

while not EOF(f) do

Begin

//прочитать строку из файла

readln (f,s);

memo1.Lines.Add(s)end;

closefile(f) end else

//иначе, если файл не существует, то создаем новый

begin

memo1.Clear;

AssignFile(f,IntToStr(TreeView1.Selected.AbsoluteIndex));

Rewrite(f);

reset(f);

while not EOF(f) do

begin

readln (f,s);

memo1.Lines.Add(s)end ;

closefile(f) end;end;

//кнопка «Добавить описание»

procedure TForm1.Button9Click(Sender: TObject);

begin

memo1.SetFocus;

//в memo можно редактировать данные (информацию)

Memo1.ReadOnly:=false;

end;

//кнопка «Сохранить описание»

//сохраняем введенные в memoданные (информацию) в файл tree.dat

procedure TForm1.Button10Click(Sender: TObject);

begin

AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));

rewrite(f);

for i:=0 to memo1.Lines.Count do

writeln(f, memo1.lines[i]); //записываем текст в него из МЕМО

closefile(f); //и закрываем

TreeView1.SaveToFile('tree.dat');

//memo доступен только для чтения

Memo1.ReadOnly:=true;

end;

end.