Как создать шаблон электронного учебника? - Delphi - Ответ 2686972

// Создаем простую структуру ссылки
// URL - адрес
// Count - просто так
type  PDataRecord = ^TDataRecord;
      TDataRecord = record
        URL: String;
        Count: Integer;
      end;

// Событие создания формы 
procedure TForm1.FormCreate(Sender: TObject);
var Node, Sub : TTreeNode;
    Rec : PDataRecord;
begin
// Добавляем в дерево ссылки на форумы Relib
  Node := TreeView1.Items.Add(nil, 'Relib');
  New(Rec);
  Rec.URL := 'http://www.relib.com'
  Rec.Count := 0;
  Node.Data := Rec;

  Sub := TreeView1.Items.AddChild(Node, 'C++ Forum');
  New(Rec);
  Rec.URL := 'http://www.relib.com/forums/forum.asp?tp=7'
  Rec.Count := 0;
  Sub.Data := Rec;

  Sub := TreeView1.Items.AddChild(Node, 'Delphi Forum');
  New(Rec);
  Rec.URL := 'http://www.relib.com/forums/forum.asp?tp=8'
  Rec.Count := 0;
  Sub.Data := Rec;
end;

// При выборе текущей ветви выводится адрес URL
procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
var Rec : PDataRecord;
begin
  Rec := Node.Data;
  Label1.Caption := Rec.URL;
end;