标签:TIWTreeView 控件 IntraWeb IWTreeView1 Items Caption Add fItem property
使用 IntraWeb (19) - 基本控件之 TIWTreeView
这是个饱受非议的控件; 我通过尝试, 理解了非议, 也能理解作者. 总之向作者的思路靠拢吧, 还是不错的.
TIWTreeView 所在单元及继承链:
IWCompTreeview.TIWTreeView < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject
主要成员:
property Items: TIWTreeViewItems //所有 Item 的集合 property Selected: TIWTreeViewItem //在这里, 叫做 "当前 Item" 更合适 property AutoIndent: Boolean //是否自动缩排; 默认 True property DoServerSidePlusMinus: Boolean //如果是 True, Html 中不包含被折叠的部分, 需要展开时再从服务器读取; 相反, Html 中包含所有节点; 默认 False property TreeViewImages: TIWTreeViewImages //通过其 OpenFolderImage、ClosedFolderImage、DocumentImage、PlusImage、MinusImage 子属性指定五个图标 property ItemSpace: TIWTreeViewItemSpace //调整纵、横间距 property UseItemImages: Boolean //是否使用 Item 标志图像 property TreeViewImagesWidth: Integer //图标宽度 property TreeViewImagesHeigth: Integer //图标高度 property UseFrame: Boolean //是否使用框架 property ScrollToName: string //滚动到指定名称的 Item property ScrollBars: TIWScrollStyle //滚动条选项 property WrapItems: Boolean //Item 文本能否换行; 默认 False property DoRefreshControl: Boolean //在修改某些属性时必须让它为 True 才会有效 property TreeItemClick: TIWTreeViewClickEvent //通过它可以为每个 Item 指定 Click 事件 property OnPlusMinus: TTreeViewPlusMinusProc //每当展开或收拢子节点时 procedure ClearAll //
TIWTreeViewItems 与 TIWTreeViewItem:
{IWCompTreeview.TIWTreeViewItems < TOwnedCollection < TCollection < TPersistent < TObject} property Count: Integer property Items[AIndex: Integer]: TIWTreeViewItem function Add(aParentItem: TIWTreeViewItem): TIWTreeViewItem procedure Clear procedure Delete(Index: Integer) function Insert(Index: Integer): TCollectionItem {IWCompTreeview.TIWTreeViewItem < TCollectionItem < TPersistent < TObject} property ParentItem: TIWTreeViewItem property SubItems: TList property UserData: TObject property Caption: string property Expanded: Boolean property Font: TIWFont property Hint: string property ItemImages: TIWTreeViewImages property Tag: Integer property URL: string property Version: Integer property Css: string property Collection: TCollection property ID: Integer property Index: Integer property Name: string property DisplayName: string property OnClick: TNotifyEvent procedure DoClick function HasChild: Boolean
测试:
{在空白窗体上放 IWRegion1 和 IWTreeView1; 下面代码在设计时实现会更方便} procedure TIWForm1.IWAppFormCreate(Sender: TObject); var fItem: TIWTreeViewItem; begin IWRegion1.Width := 200; IWRegion1.Align := alLeft; IWRegion1.Color := clWebYellow; LinkColor := clWebRed; //如果给 TIWTreeViewItem 指定了 OnClick 事件, 它会被呈现为链接 IWTreeView1.Parent := IWRegion1; IWTreeView1.Align := alClient; IWTreeView1.Items.Add(nil).Caption := 'ItemA'; IWTreeView1.Items.Add(nil).Caption := 'ItemB'; IWTreeView1.Items.Add(nil).Caption := 'ItemC'; fItem := IWTreeView1.Items.Add(nil); fItem.Caption := 'ItemD'; IWTreeView1.Items.Add(fItem).Caption := 'ItemD1'; IWTreeView1.Items.Add(fItem).Caption := 'ItemD2'; fItem := IWTreeView1.Items.Add(fItem); fItem.Caption := 'ItemD3'; IWTreeView1.Items.Add(fItem).Caption := 'ItemD31'; IWTreeView1.Items.Add(fItem).Caption := 'ItemD32'; end; {尽管可以为每个 Item 指定 OnClick, 但我觉得用 TreeItemClick 事件一起指定更方便; 事件中可以通过其 Tag、ID、Name、Caption等来区别} procedure TIWForm1.IWTreeView1TreeItemClick(Sender: TObject; ATreeViewItem: TIWTreeViewItem); begin if not ATreeViewItem.HasChild then WebApplication.ShowMessage(ATreeViewItem.Caption); end;
效果图:
标签:TIWTreeView,控件,IntraWeb,IWTreeView1,Items,Caption,Add,fItem,property 来源: https://blog.51cto.com/u_14617575/2744231
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。