Ændre på standard komponenter

Kode 

  TMyNodeData = class(TObject)
  private
    FId: integer;
    procedure SetId(Value: integer);
  public
    property id: integer read FId write SetId;
  end;

Kode 

var
  i:Integer;
  Head,Child:TTreeNode;
begin
  Treeview1.Items.Clear;
  Head := Treeview1.Items.Add(nil,'Hoveditem');
  for i:=0 to fc.Feeds.Count - 1 do
  begin
    Child:= Treeview1.Items.AddChild(Head,fc.Feeds.Feed[i].Title);
    Child.Data:= TMyNodeData.Create;
    TMyNodeData(Child.Data).id:= 152;
  end;
  Head.Expand(True);

Kode 

var i,o:integer;
begin
  for i:= 0 to TreeView1.Items.Count-1 do
    if TreeView1.Items.Item[i].Data <> nil then
      Memo1.Lines.Add(intToStr(TMyNodeData(TreeView1.Items.Item[i].Data).id));
end;

Kode 

  TMyTreeNode = class(TTreeNode)
  private
    FId: Integer;
    procedure SetId(value:integer);
  public
    property id: integer read FId write SetId;
  end;

procedure TMyTreeNode.SetId(Value:integer);
begin
  if Value <> FId then FId:= Value;
end;

Kode 

var Head: TMyTreeNode;
begin
  Head:= TMyTreeNode.Create(TreeView1.Items);
  Head.id:= 152;
  TreeView1.Items.Add(Head,'En lille titel');

Kode 

var i:integer;
begin
  for i:= 0 to TreeView1.Items.Count-1 do
  begin
    Memo1.Lines.Add(TreeView1.Items.Item[i].Text);
    Memo1.Lines.Add(
      IntToStr(TMyTreeNode(TreeView1.Items.Item[i]).Id)
    );
  end;

Kode 

var
  i:Integer;
  Head:TTreeNode;
begin
  Treeview1.Items.Clear;
  Head := Treeview1.Items.Add(nil,'Hoveditem');
  for i:=0 to fc.Feeds.Count - 1 do
  begin
    Treeview1.Items.AddChild(Head,fc.Feeds.Feed[i].Title);
  end;
  Head.Expand(True);

Kode 

var Head, Child: TMyTreeNode;
begin
  Head:= TMyTreeNode.Create(TreeView1.Items);
  TreeView1.Items.Add(Head,'HovedMenu');

  Child:= TMyTreeNode.Create(TreeView1.Items);
  TreeView1.Items.AddNode(Child,Head,'Title',nil,NaAddChild);

Kode 

var
  i:Integer;
  Head:TTreeNode;
begin
  Treeview1.Items.Clear;
  Head := Treeview1.Items.Add(nil,'Hoveditem');
  for i:=0 to fc.Feeds.Count - 1 do
  begin
    Treeview1.Items.AddChild(Head,'Title').Data := pointer(152);
  end;
  Head.Expand(True);