我这里举个例子
有三个单选项Left,Top,Width
选择Left时,Edt.text显示的是edt.left的值;其他同理
变量temp:=Left
这里edt.temp不知道应该怎么写问题2 我用的是raize的控件groupbar,里面有数个group
想要用checktree遍历显示group的名称
我是这样写的(chktr_PowerList是checktree)
RootNode:=chktr_PowerList.Items.Add(nil,'所有权限');//总结点
for i:=0 to frmMain.LeftMenuGBar.ControlCount-1 do
begin
//这个能得到GroupBox中所有group中的Name
chktr_PowerList.Items.AddChild(RootNode,(frmMain.LeftMenuGBar.Controls[i].GetNamePath);
end;
但没法得到GroupBox中所有group中的Caption
因为没有frmMain.LeftMenuGBar.Controls[i].caption这样的写法
有三个单选项Left,Top,Width
选择Left时,Edt.text显示的是edt.left的值;其他同理
变量temp:=Left
这里edt.temp不知道应该怎么写问题2 我用的是raize的控件groupbar,里面有数个group
想要用checktree遍历显示group的名称
我是这样写的(chktr_PowerList是checktree)
RootNode:=chktr_PowerList.Items.Add(nil,'所有权限');//总结点
for i:=0 to frmMain.LeftMenuGBar.ControlCount-1 do
begin
//这个能得到GroupBox中所有group中的Name
chktr_PowerList.Items.AddChild(RootNode,(frmMain.LeftMenuGBar.Controls[i].GetNamePath);
end;
但没法得到GroupBox中所有group中的Caption
因为没有frmMain.LeftMenuGBar.Controls[i].caption这样的写法
temp怎么会成了属性?自定义的控件?
edt.temp就是edt.left,关键是edt.temp应该怎么写,
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to RzGroupBar1.GroupCount - 1 do
begin
Memo1.Lines.Add(RzGroupBar1.Groups[i].Caption);
end;
end;