TreeView的分级显示。急急急。

Question

利用结点的Data属性，它是一个指针，你可利用它存储代码。

Answer 1

自定义一个Record和指向该Record的指针,在取数据时New这个指针并赋给Node的Data属性,选择中该Node后用定义的指针结构转换该指针取出当时存进去的值:
定义:
MyRecord = Record
  Code: Integer;
  Name: String;
end;
PMyRecord = ^MyRecord;赋值:
New(tmpPMyRecord);
tmpPMyRecord.Code := 1001;
tmpPMyRecord.Name := 'haha';
tmpNode.Data := tmpPMyRecord;//tmpNode是新添加的取值:
Label1.Caption := IntToStr(PMyRecord(tmpNode.Data)^.Code);
Label1.Caption := PMyRecord(tmpNode.Data)^.Name;//tmpNode是选中的

Answer 2

delphi有帮助阿，看都不愿意看，还有例题