Лабораторная работа: Создание 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);

--> ЧИТАТЬ ПОЛНОСТЬЮ <--