Translate

2016/07/12

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:




最後,實際做出的成品如下圖:

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

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

但這個是利用


























欲知詳請,我們下回分曉

沒有留言:

張貼留言

Why I Choose Delphi! (CHT)

扣除使用 C++ Builder 的時間,我實際使用 Delphi 的時間點是 2012 年,它帶我看到了不一樣的世界,見識到世界各地的高手使用 Delphi 創造出他們引以為豪的產品,並且無私的分享他們的學習知識,使我的技術能力得以跟隨他們的能力提升。 最最讓我喜歡的...