默認父節點為1001
子節點則動態創建為1001001，1001002 等依次增加.....
大俠 怎么做；謝謝
uj5u.com熱心網友回復：
http://docwiki.embarcadero.com/CodeExamples/XE8/en/TreeViewAddChild_%28Delphi%29procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { Remove any existing nodes. }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node. }
{ Add a child node to the node just added. }
AddChild(MyTreeNode1,'ChildNode1');
{Add another root node}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
{Give MyTreeNode2 to a child. }
AddChild(MyTreeNode2,'ChildNode2');
{Change MyTreeNode2 to ChildNode2 }
{ Add a child node to it. }
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a');
{ Add another child to ChildNode2, after ChildNode2a. }
AddChild(MyTreeNode2,'ChildNode2b');
{ Add another root node. }
Add(MyTreeNode1, 'RootTreeNode3');
end;
end;
uj5u.com熱心網友回復：
節點編號是怎么設定的；就是子節點編號自動增加后面三位數 001，002等
uj5u.com熱心網友回復：
定義個變數， 回圈加1var
id: integer;
begin
id := 0;
Inc(id);
Caption := FormatFloat('000', id);
uj5u.com熱心網友回復：
不行啊 那如果1001001變成父節點 則子節點編號為1001001001
uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1: TTreeNode;
i, j: integer;
Si, sj: string;
begin
with TreeView1.Items do
begin
Clear; { Remove any existing nodes. }
{ Add a child node to the node just added. }
for i := 1 to 10 do
begin
Si := FormatFloat('1000', i);
MyTreeNode1 := Add(nil, Si); { Add a root node. }
for j := 1 to 10 do
begin
sj := Si + FormatFloat('000', j);
AddChild(MyTreeNode1, sj);
end;
end;
end;
end;
uj5u.com熱心網友回復：
不對？假設100101是父節點 新增按鈕 怎么增加子節點 回圈陳述句怎么寫
uj5u.com熱心網友回復：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); // 加入根節點
var
NowNode: TTreeNode;
i, j: integer;
Si, sj: string;
begin
with TreeView1.Items do
begin
for i := 1 to 10 do
begin
Si := FormatFloat('1000', i);
NowNode := Add(nil, Si);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject); // 加入子節點
var
NowNode,NewNode: TTreeNode;
i, j: integer;
S1,S2: string;
begin
NowNode:=TreeView1.Selected;
S1:=NowNode.Text;
with TreeView1.Items do
for i := 1 to 10 do
begin
S2 :=S1+ FormatFloat('000', i);
NewNode := AddChild(NowNode, S2);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
Button1加入根節點；
Button2（1）滑鼠選擇1根節點（2）點擊加入子節點。
uj5u.com熱心網友回復：
for i ：= 1 to 10 do 這個是回圈增加10條吧；如何判斷資料中有幾個子節點了；比如有兩個子節點了；100101001；100101002 再加一個就變成100101003
uj5u.com熱心網友回復：
可以通過搜索uj5u.com熱心網友回復：
可以通過搜索TreeView1.Items ，獲取有多少個子節點。uj5u.com熱心網友回復：
具體是怎么做的啊？
with TreeView1.Items do
for i := 1 to Nownode.count do
begin
S2 :=S1+ FormatFloat('000', i);
NewNode := AddChild(NowNode, S2);
end
我這樣寫還是不行；每次都要從1進行回圈；
uj5u.com熱心網友回復：
大俠 具體怎么做的
uj5u.com熱心網友回復：
如何判斷當前節點的子節點數量；然后點擊增加按鈕新增一個節點
uj5u.com熱心網友回復：
是在現在有程式上，修改代碼得出的圖。
uj5u.com熱心網友回復：
不是簡單地插入，而是要區別插入子節，還是插入同級節點。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/82145.html
標籤：VCL組件開發及應用