TreeView问题,在线
TreeView,MultiSelect为True
如何将在TreeView里面选择的多项内容赋值给一个button的caption
问题点数：20、回复次数：5Top
1 楼neuer（厦门朝八晚五）回复于 2003-12-01 10:01:53 得分 0
比如说我在TreeView里面选择了 张三 李四 王五 这三个
那么button的caption为"张三,李四,王五"Top
2 楼smilelhh（blue）回复于 2003-12-01 10:11:45 得分 2
遍历一下，再组合成string付给caption应该可以。
代码就自己写吧Top
3 楼47522341（睡到8：30）回复于 2003-12-01 10:21:27 得分 5
下面是我做的一个类似的例子；
你看看；
procedure TFrm_select_xmcontents.TreeView1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var TN1: Ttreenode;
begin
TN1 := Treeview1.GetNodeAt(X,Y);
if TN1.Level = 0 then exit; //如果选中的是根节点；退出
if (not (ssctrl in shift)) and (TN1.Selected) then selected_blemish := TN1.Text + ',';
//单击；也就是第一次选择；只要将选中的节点text加入；
if (ssctrl in shift) then //按住ctrl建进行选择的时候就是要多选；
begin
if TN1.Selected then //当前节点选中
begin
if not ANsicontainstext(selected_blemish,TN1.Text) then // 选择字符串里没有包括；应该就是
selected_blemish := selected_blemish + TN1.Text + ','
else exit; //
end
else begin //当前节点取消选择；
if ANsicontainstext(selected_blemish,TN1.Text) then //选择字符串中已经包括-应该就是
selected_blemish := ansireplacetext(selected_blemish,TN1.Text + ',','')
else exit;
end;
end;
// showmessage(selected_blemish);
end;
Top
4 楼wuqiu（午秋）回复于 2003-12-01 10:22:32 得分 12
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
i:integer;
s:String;
begin
s := '';
for i:=0 to TreeView1.SelectionCount-1 do
begin
if s<> '' then s := s+ ',';
s := s+ TreeView1.Selections[i].Text;
end;
Button1.Caption := s;
end;Top
5 楼ls2008（結婚了吧,傻B了吧）回复于 2003-12-01 10:36:35 得分 1
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
i:integer;
s:String;
begin
s := '';
for i:=0 to TreeView1.SelectionCount-1 do
begin
if s<> '' then s := s+ ',';
s := s+ TreeView1.Selections[i].Text;
end;
Button1.Caption := s;
end;
Top
