delphi中控件treeview怎么重复调用？

Question

在主窗体中有个treeview1, 在窗体开始时从数据库中遍历出各个部门。现在在主窗体上有个按钮，进入到一个对话框form2中，在这个对话框中可以选择各部门。这是需要再弹出一个部门列表的form3窗体，以便选择。怎么重复调用主窗体中的treeview1阿，也就是可以在form3中得到和主窗体一样的treeview阿。
多谢。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var stream:TMemoryStream;
begin
  stream:=TMemoryStream.Create;
  TreeView1.SaveToStream(stream);
  stream.Position:=0;
  TreeView2.Items.BeginUpdate;
  TreeView2.LoadFromStream(stream);
  TreeView2.Items.EndUpdate;
end;

Answer 2

把FORM1的事件调用过去显示就OK了

Answer 3

void __fastcall TForm1::Button1Click(TObject *Sender)
{  
    TTreeView * TreeView2;
    TreeView2 = new TTreeView( TreeView1);    TreeView2->Parent = Form2;
    TreeView2->Items->Assign(TreeView1->Items);
    Form2->Show();
}