unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Menus, StdCtrls, ExtCtrls, ComCtrls, RzTreeVw;
type
TForm1 = class(TForm)
ImageList1: TImageList;//这里在面板上添加了一个图片列表作为 RzCheckTree1显示图片(关联的方法是在控件rzchecktree的images属性添加,你也可以为tree添加stateimages图片,当然显示就不再是对号了,本程序没添加stateimages)
PopupMenu1: TPopupMenu;
N1: TMenuItem;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
RzCheckTree1: TRzCheckTree; //控件在RaizeLists控件选项卡里找
Button4: TButton;
procedure AddSomethingButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure AddPlantButton3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
AnimalNode,PlantNode:TTreeNode;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AddSomethingButton1Click(Sender: TObject); //初始化两个父结点 (人,动物)
begin
AnimalNode := RzCheckTree1.Items.Add(nil,'Animal'); //添加父结点
PlantNode := RzCheckTree1.Items.Add(nil,'Plant');
end;
procedure TForm1.Button2Click(Sender: TObject);//添加对应动物父结点的子结点
var
subNode :TTreeNode;
begin
subNode := RzCheckTree1.Items.AddChild(AnimalNode,'AnimalLikeThis');
// subNode.Selected := True;
RzCheckTree1.FullExpand;//展开树结构 RzCheckTree1.FullCollapse; //收缩
end;
procedure TForm1.AddPlantButton3Click(Sender: TObject);//添加对应人物父结点的子结点
var
subNode :TTreeNode;
begin
subNode := RzCheckTree1.Items.AddChild(PlantNode,'PlantLikeThis'); //添加子结点
//subNode.Selected := True;
RzCheckTree1.FullExpand;//展开树结构
end;
procedure TForm1.Button4Click(Sender: TObject);
var
i :Integer;
begin
RzCheckTree1.Items.BeginUpdate;
for i:= 0 to RzCheckTree1.Items.Count -1 do
if RzCheckTree1.Items[i].Level <> 0 then
begin
if RzCheckTree1.ItemState[i] = csChecked then
begin
//1 则为未选中状态 3 则为未全选状态 2 则为选中状态
RzCheckTree1.Items[i].ImageIndex:= 2;
end
else
begin
RzCheckTree1.Items[i].ImageIndex := 1;
end;
end
else
RzCheckTree1.Items[i].ImageIndex:= 0; //空白图片
RzCheckTree1.Items.EndUpdate;
end;
end.
delphi7 TRzCheckTree TImageList 简单应用
最新推荐文章于 2020-08-28 22:46:11 发布