在线求救可打对钩的树形控件(50分)

  • 主题发起人 主题发起人 断心缘
  • 开始时间 开始时间

断心缘

Unregistered / Unconfirmed
GUEST, unregistred user!
谁能给几个可打对钩的树形控件,1stclass3000TrialVcl6例外。
 
能把下载地址吗?
 
virtualtreeview http://www.delphi_gems.com
 
Raize控件 TRcCheckList
51delphi上有
 
treeview自己模拟
 
Fangyizhi,我找到了你说的控件,可它怎么才能判断是否被选中?帮忙给点资料吗?
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if rzchecklist1.ItemState[2]=csUnknown then //csUnchecked,csChecked
begin

end;
end;
 
用treeview就可以,只不过是几张图片而已
 
Fangyizhi,说的详细点好吗?帮帮忙吧[:)]
 
procedure Tchecktree.GetCheckedListName(var astringlist:tstrings);
var
i:integer;
begin
if not assigned(fchecktree) then exit;
if not assigned(astringlist) then exit;
astringlist.Clear;
for i:=0 to checktree.Items.Count -1 do
if checktree.ItemState=cschecked then
astringlist.Add(checktree.items.text); //获得选中结点的名称列表
end;
 
用 bsskincheckgroup
 
多人接受答案了。
 
后退
顶部