Текущий архив: 2005.03.20;
Скачать: CL | DM;
Вниз
TreeNode Найти похожие ветки
← →
Checist [root] (2005-03-06 10:44) [0]Я пытаюсь всунуть node в выделенныю ветвь, но лезет ошибка, как это правильно сделать?
var
Node: TTreeNode;
Mode: TNodeAttachMode;
NText: string;
begin
if Url.Text = "" then Exit;
Node.ImageIndex := 1;
Node.SelectedIndex := 3;
NText := Url.Text;
if (Favor.Selected.ImageIndex = 0) or (Favor.Selected.Index = 0) then Mode := naAddChild
else Mode := naAdd;
Favor.Items.AddNode(Node, Favor.Selected, NText, nil, Mode);
Url.Clear;
end;
← →
MU (2005-03-06 11:03) [1]Node.ImageIndex := 1;
Здесь ошибка?
а Node := TTreeNode.create(...) не надо делать
← →
Checist [root] (2005-03-06 11:13) [2]Благодарю... Совсем забыл!
Страницы: 1 вся ветка
Текущий архив: 2005.03.20;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.041 c
