使用IntraWeb进行Web编程(二)

  for i := 0 to IWTreeView1.Items.Count - 1 do

    IWTreeView1.Items [i].Expanded := True;

end;

procedure TformTree.EnlargeFont1Click(Sender: TObject);

begin

  IWTreeView1.Font.Size := IWTreeView1.Font.Size   2;

end;

图21.3 演示菜单、树形控件和动态创建组件的例程

感谢IntraWeb提供了如同标准Delphi VCL组件的特性，使代码易读，也容易理解。

例程中的菜单有两个子菜单稍微复杂一点。第一个是显示应用程序ID，也就是程序执行时的会话期ID。该标志可以通过全局对象WebApplication的AppID属性获得。第二个子菜单是Tree Contents，它可以把树形控件的一级节点标题和子节点数目清单列出。值得注意的是，这些信息显示在一个运行时才创建的组件memo里（见图21.3），这一点与在一个VCL应用程序里面做同样的事情非常相似。

procedure TformTree.TreeContents1Click(Sender: TObject);

var

  i: Integer;

begin

  with TIWMemo.Create(Self) do

  begin

    Parent := Self;

    Align := alBottom;

    for i := 0 to IWTreeView1.Items.Count - 1 do

      Lines.Add (IWTreeView1.Items [i].Caption   '''' (''''  

        IntToStr (IWTreeView1.Items [i].SubItems.Count)   '''')'''');

  end;

end;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!