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

但這個是利用


























欲知詳請,我們下回分曉

留言

這個網誌中的熱門文章

對於 Delphi 10.1 Berlin 推出的看法

IntraWeb 學習日記:【Login】