treeview的index是
我想问一下各位,我在treeview中的data已经用来做与数据库连接的标记之一了,但是我还想找到另外一个象index,我想当我选种某个节点的时候我想知道它是那一类,然后根据选种的节点打开对应的界面,象
id
name
sex
buwei
yi
er
san
id
name
sex
.
.
比如当我选种了buwei的时候我知道是选种一个部位信息,然后对应的界面显示.
index好象是个只度的属性,真的不知道怎么修改,请问大侠,除了可以给data一个值以外,还有什么方法吗?
[解决办法]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MCForms, StdCtrls, ComCtrls;
type
TUser = record
username: array[1..20] of Char;
sex: Boolean; //..等等
end;
PUser = ^TUser;
TForm1 = class(TForm)
Button1: TButton;
TreeView1: TTreeView;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ 私有成员（变量、函数）声明 }
public
{ 公共成员（变量、函数）声明 }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//把结构体写入选中的TreeNode里
procedure TForm1.Button1Click(Sender: TObject);
var
user: PUser;
begin
GetMem(user,SizeOf(TUser));
StrCopy(@user.username,PChar( 'Jack '));
user.sex := True;
TreeView1.Selected.Data := user;
end;
//把TreeNode里的Data读出来转换成结构体显示在Memo1里
procedure TForm1.Button2Click(Sender: TObject);
begin
with Memo1, PUser(TreeView1.Selected.Data)^ do
begin
Clear;
Lines.Add(username);
if sex then Lines.Add( '男 ') else Lines.Add( '女 ');
end;
end;
end.
