双击treeview中的某项时,在右边的edit内容显示选中项的内容??在线等。

Question

var Node: TTreeNode;  Node := TreeView1.Selected;
  if Node <> nil then
    Edit1.Text := Node.Text;

Answer 1

同意 genphone_ru(票票) (

Answer 2

procedure TMDIChild.RzTreeView1Click(Sender: TObject);
var
   gNode:TTreeNode;
begin
   gNode:=RzTreeView1.Selected;
   if gNode<>nil then
   begin
     edit1.text:=gnode.text;
......

Answer 3

Edit.Text:= TreeView.Selected.text

Answer 4

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  Edit1.Text:= TreeView1.Selected.text;
end;

Answer 5

genphone_ru(票票) 
手可不慢呀

Answer 6

if assigned(RzTreeView1.Selected) then
  edit1.text:=RzTreeView1.Selected.text;

Answer 7

with TreeView1 do
  begin
    if Selected.HasAsParent(TreeNode1) or Selected.HasAsParent(TreeNode2) then
    Label1.Caption:=Selected.Parent.Text+' . '+TreeView1.Selected.Text
    else
    Label1.Caption:=TreeView1.Selected.Text;
  end;
这是我的例子

Answer 8

这是我用过的一段代码：
procedure TForm_dd.TreeView2Change(Sender: TObject; Node: TTreeNode);
begin
  if query1.Active then
  begin
    if Node.StateIndex <> -1 then
    query1.FindKey([StringOfChar('0', 10 - Length(IntToStr(Node.StateIndex))) + IntToStr(Node.StateIndex)])
    else query1.FindKey([IntToStr(Node.StateIndex)]);
 edit1.text:=query1.fieldbyname('你的字段名').asstring;
    end;
end;
我在Node.StateIndex中保存了记录的关键字，你也可以用其它方法定位。

Answer 9

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  if gNode<>nil then
   begin
     Edit1.Text:= TreeView1.Selected.text;
   end;
end;