IntraWeb學習日記：【TIWTreeView】

作者：吳祐賓

TreeView真的很常在應用程式裡被看到，IntraWeb也有個相同的元件：【TIWTreeView】。

實際應用上也很好理解，在這邊就不賣關子，按例直接看成果圖：

程式碼如下：

var LTreeNode1, LTreeNode2: TIWTreeViewItem;

procedure TIWForm1.IWButton1AsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  LTreeNode1 := IWTreeView1.Items.Add();
end;

procedure TIWForm1.IWButton2AsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  LTreeNode2 := IWTreeView1.Items.Add(LTreeNode1);
end;

procedure TIWForm1.IWTreeView1TreeItemClick(Sender: TObject;
  ATreeViewItem: TIWTreeViewItem);
begin
  if not ATreeViewItem.HasChild then
    WebApplication.ShowMessage(ATreeViewItem.Caption);
end;

有些事，不自己做做看還真的不知道能不能行。快來試試吧！

See also:

• 使用 IntraWeb (19) - 基本控件之 TIWTreeView

最後，實際做出的成品如下圖：

完全使用 Delphi 做出來的結果哦！

是不是看起來就跟 Win32 Form 一模一樣呢！

但這個是利用

欲知詳請，我們下回分曉