IntraWeb开发网站时如何使用TreeView控件？
unit uMain;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
IWCompTreeview, Generics.Collections;
type
TIWFrmMain = class(TIWAppForm)
IWTreeView1: TIWTreeView;
IWButton1: TIWButton;
IWButton2: TIWButton;
IWButton3: TIWButton;
procedure IWButton1Click(Sender: TObject);
procedure IWAppFormCreate(Sender: TObject);
procedure IWAppFormDestroy(Sender: TObject);
procedure IWButton2Click(Sender: TObject);
procedure IWButton3Click(Sender: TObject);
public
FLink: TObjectDictionary<string, string>; // 泛型
procedure ItemClick(Sender: TObject);
end;
implementation
{$R *.dfm}
procedure TIWFrmMain.IWAppFormCreate(Sender: TObject);
begin
FLink := TObjectDictionary<string, string>.Create;
FLink.Add('必应', 'https://cn.bing.com/');
FLink.Add('360搜索', 'https://www.so.com/');
FLink.Add('搜狗', 'https://www.sogou.com/');
end;
procedure TIWFrmMain.IWAppFormDestroy(Sender: TObject);
begin
FLink.Free;
end;
procedure TIWFrmMain.IWButton1Click(Sender: TObject);
var
sKey: string;
begin
for sKey in FLink.Keys do
begin
with IWTreeView1.Items.Add do
begin
ParentItem := IWTreeView1.Items.Items[3];
Caption := sKey;
OnClick := ItemClick;
end;
end;
end;
procedure TIWFrmMain.IWButton2Click(Sender: TObject);
begin
IWTreeView1.Items.Items[0].Expanded := false;
end;
procedure TIWFrmMain.IWButton3Click(Sender: TObject);
begin
IWTreeView1.Items.Items[0].Expanded := True;
end;
procedure TIWFrmMain.ItemClick(Sender: TObject);
var
sKey: string;
url:string;
begin
if (Sender is TIWTreeViewItem) then
begin
for sKey in FLink.Keys do
begin
if sKey = (Sender as TIWTreeViewItem).Caption then
begin
url:=FLink[sKey];
WebApplication.GoToURL(url);
Break;
end;
end;
end;
end;
initialization
TIWFrmMain.SetAsMainForm;
end.
IntraWeb如何使用TreeView控件
Delphi XE源代码
开发测试环境：
Embarcadero Delphi XE Version 15.0.3890.34076
IntraWeb 14.0.32
注：本delphi源代码参考官方文档，修改测试而成，都是本人实验成功的。(本人CSDN的ID:i8013)
使用IntraWeb开发网站具有多个显著的好处，以下是一些主要优势：
不要需安装Apache和IIS（Internet Information Services）这样的服务器，没有配置的烦恼，一句话用IntraWeb开发网站，不需任何安装和配置，双击一下全搞定。
关键IntraWeb开发响应式Web网站太方便了，手机端电脑端自兼容。我这个例子，你下载到电脑，然后双击一下exe一秒钟不到，Web网站就建好了，你用手机浏览器输入你电脑的ip,网页就出来了，如果在本地电脑上直接输入：http://127.0.0.1:8888 当然我测试的时候用的8888端口，正式用的时候设置80端口即可。
简化开发流程：
IntraWeb极大地简化了Web应用程序的开发过程。它允许开发者使用Delphi语言来创建Web应用，这与使用Delphi开发普通程序非常相似，因此，有经验的Delphi开发者可以迅速转变为Web应用开发员，无需重新学习新的编程语言或框架。
无需HTML/JavaScript知识：
传统的Web开发往往要求开发者具备HTML、CSS和JavaScript等前端技术知识。然而，IntraWeb允许开发者在不编写任何HTML、CGI或JavaScript代码的情况下，创建功能丰富的Web应用程序。所有的界面布局和交互逻辑都在Delphi环境中完成，大大降低了学习曲线和开发难度。
高效的开发环境：
IntraWeb提供了丰富的组件库，这些组件与Windows组件相对应，使得开发者可以像设计Windows应用程序一样来设计Web应用程序的界面。此外，IntraWeb还支持WYSIWYG（所见即所得）的HTML编辑器，进一步提高了开发效率。
源代码下载：IntraWeb如何使用TreeView控件资源-CSDN文库
上面的代码点击节点，打开了网站，但是自已关闭了，不爽，于是改了一下代码
下面是展示效果：