一个关于TREEVIEW的使用方法(我对它不是很了解),最好有源码,请大家谈谈!

codyvimia

一个关于TREEVIEW的使用方法(我对它不是很了解),最好有源码,请大家谈谈!

26426613

type
PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  MyRecPtr: PMyRec;
  TreeViewIndex: LongInt;
begin
  New(MyRecPtr);
  MyRecPtr^.FName := Edit1.Text;
  MyRecPtr^.LName := Edit2.Text;
  TreeViewIndex := StrToInt(Edit3.Text);
  with TreeView1 do
  begin
    if Items.Count = 0 then
      Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
    else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then

      Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
  Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
                  PMyRec(TreeView1.Selected.Data)^.LName;
end;

其实你的机器也有！

jy02723597

找到组件后加到窗体上,双击它,右键添加菜单以及自菜单,填写要显示的菜单名称,直到做成想要的样子.对treeview添加双击事件：
if treeview1.Selected.Text = '菜单名称1' then
    单击该菜单引发的事件；
if treeview1.Selected.Text = '菜单名称2' then
    单击该菜单引发的事件；
例如：
procedure TFRM_MAIN.TreeView1DblClick(Sender: TObject);
begin
  if treeview1.Selected.Text = '添加记录' then
    btnadd.OnClick(sender);
  if treeview1.Selected.Text = '删除记录' then
    btndelete.OnClick(sender);
  //btnadd和btndelete都是button的名称，button另外有自己的事件。
  //我是为了用户更方便让单击treeview的事件引发button的单击事件。一般直接写事件即可。
end；

哈哈，我也是毕业后第一次真正做点东西，真正学点东西，都让拿学历给害苦了。