델파이( Delphi ) 7.2 - 트리뷰 ( TreeView )

Delphi 7.2 TreeView.exe

트리뷰 에서는 노드 를 사용하고, 여기에 하위 노드를 붙이거나, 최상위 노드를 등록 할수 있습니다.

procedure TMainForm.SpeedButton1Click(Sender: TObject);var ret:TTreeNode;begin
  ret := TreeView1.Items.Add( TreeView1.TopItem, TSpeedButton(Sender).Caption );
  {
  ret                  생성된 노드
  TreeView1.TopItem    최상위 노드
  TreeView1.Selected   선택한 노드
  TreeView1.FullExpand   모두 펼치기
  TreeView1.FullCollapse 모두 접기
  TreeView1.Selected.Expanded := True; 선택 노드 펼치기
  TreeView1.Selected.Expanded := True; 선택 노드 접기
  }
end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);var ret:TTreeNode;begin
  if TreeView1.Selected.Index = -1 then Exit;//선택 되지 않았을때 빠져 나가기
  TreeView1.Items.AddChild( TreeView1.Selected, TSpeedButton(Sender).Caption );
end;

procedure TMainForm.SpeedButton3Click(Sender: TObject);begin
  TreeView1.Items.Clear;//목록 비우기
end;