TreeView

← →
zam © (2002-03-10 15:04) [0]

Народ, подскажите как в TreeView добавить checkbox"ы , причем чтоб можно было выбрать в какой ветке есть checkbox, а в какой нет. Или если кто знает, дайте ссылочку на open source компонентик с похожими функциями.

← →
MBo © (2002-03-10 16:00) [1]

на torry.ru поищи
procedure TForm1.tv1Change(Sender: TObject; Node: TTreeNode);
var
R: TRect;
begin
if pos("2",node.Text)>0 then begin
r:=node.DisplayRect(true);
cb1.left := R.Left+ tv1.Left+8+tv1.canvas.TextWidth(node.text);
cb1.top := R.Top + tv1.top;
cb1.Tag:=node.absoluteIndex;
cb1.Visible := True;
cb1.SetFocus;
end;
end;

procedure TForm1.cb1Change(Sender: TObject);
begin
tv1.Items[cb1.tag].Text:=cb1.Text;
cb1.visible:=false;
end;

Спасибо большое, все получилось

TreeView Найти похожие ветки