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 一模一樣呢!

但這個是利用


























欲知詳請,我們下回分曉

沒有留言:

張貼留言

JSON Parse in Delphi XE (01)

在 Delphi.ktop 的主題中,看到了【 JSON求教 】這一篇 如果在 XE 裡面要實現,是不是也是這麼簡單? 想到了,就開始來實作吧!