Есть ListBox1, ListBox2, ListBox3, каждый из которых содержит некоторые записи.
По нажатию на кнопку требуется занести в TreeView1 эти записи...
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,'цех1');
begin
for i:=0 to ListBox1.Count-1 do
TreeView1.Items.AddChild(TreeView1.Items.Item[i],listbox1.Items.Strings[i]);
end;
TreeView1.Items.Add(nil,'цех2');
begin
for j:=0 to ListBox2.Count-1 do
TreeView1.Items.AddChild(TreeView1.Items.Item[j],listbox2.Items.Strings[j]);
end;
TreeView1.Items.Add(nil,'цех3');
begin
for k:=0 to ListBox3.Count-1 do
TreeView1.Items.AddChild(TreeView1.Items.Item[k],listbox3.Items.Strings[k]);
end;
var node: TTreeNode;
...
TreeView1.Items.Clear;
node := TreeView1.Items.Add(nil,'цех1');
for i:=0 to ListBox1.Count-1 do
TreeView1.Items.AddChild(node,listbox1.Items.Strings[i]);
node := TreeView1.Items.Add(nil,'цех2');
for j:=0 to ListBox2.Count-1 do
TreeView1.Items.AddChild(node,listbox2.Items.Strings[j]);
node := TreeView1.Items.Add(nil,'цех3');
for k:=0 to ListBox3.Count-1 do
TreeView1.Items.AddChild(node,listbox3.Items.Strings[k]);