Работа с TreeView

[DENIS_1992]

Привет всем.

]У меня в TreeView есть пять корневых катологов, мне нужно из подкатолога выделить корневой католог, а затем снова выделить тот католог в котором я был.

Например:

Корневой котолог...
Подкорневой котолог1
Подкорневой котолог2
Подкорневой котолог3

Мне нужно из Подкорневого котолога3 выделить Корневой котолог, а затем снова выделить Подкорневой котолог3.

Как это можно сделать???

[DENIS_1992]

Сообщение от DENIS_1992

Привет всем.

]У меня в TreeView есть пять корневых катологов, мне нужно из подкатолога выделить корневой католог, а затем снова выделить тот католог в котором я был.

Например:

Корневой котолог...
Подкорневой котолог1
Подкорневой котолог2
Подкорневой котолог3

Мне нужно из Подкорневого котолога3 выделить Корневой котолог, а затем снова выделить Подкорневой котолог3.

Как это можно сделать???

Может быть есть какой нибудь способ перейти на самый верхний уровень TreeView и там с помощью TreeView1.Select.Item[неоюходимый номер] выделить нужный католог???

[Repy]

а параметр MultiSelect не поможет? Или тебе надо при выделении одной ветки, автоматом выделить другую?

[DENIS_1992]

Вообще я работаю с реестром. Мне необходимо при создании параметра в ListView как бы обновить реестр, а для этого мне нужно просто выделить в TreeView самый верхний корневой котолог(например корневой католог HKEY_CURRENT_USER), а затем вернуться обратно во вложенный именно в этот корневой католог подкатолог. Использовать AbsolutIndex я не могу, т.к. дерево у меня создается динамически... А можно как нибудь пометить пять корневых катологов и обращаться к ним по особой метке???

[DENIS_1992]

Сообщение от Repy

а параметр MultiSelect не поможет? Или тебе надо при выделении одной ветки, автоматом выделить другую?

Мне необходимо ,например, при изменении имени подкатолога, программно выделить самый верхний раздел, а затем вернуться к переименнованному подразделу...когда у меня был только один корневой котолог, а не пять мой код:
{процедура переименования параметра}
procedure TForm1.N6Click(Sender: TObject);
Var
Str: string;
begin
Try
REG2:= TRegistry.Create;
REG2.RootKey:=HKEY_CURRENT_USER;
REG2.OpenKey(Edit1.Text,true);
InputQuery('Вопрос','Введите новое имя параметра',str);
if str='' then exit;
if ListView1.Selected.Index=-1 then exit;
REG2.RenameValue(ListView1.Selected .Caption,Str);
REG2.CloseKey;
REG2.Destroy;
ListView1.Selected.Delete;
ListView1.Items.Add.Caption:=str;
{блок обновления ListBox}
obn:=TreeView1.Selected.AbsoluteInd ex;
TreeView1.Select(TreeView1.Items[0]);
TreeView1.Select(TreeView1.Items[obn]);
except
on EAccessViolation do
begin
ShowMessage('Вы невыбрали параметр!!!');
Exit;
end;
end;
end;
РАБОТАЛ, но только для одного корневого католога, а теперь у меня их пять!!! не знаю что делать

[mrCloud]

я не понял вопроса то есть тебе нужно определить индекс подкаталога и каталога?

[mrCloud]

var node:TTreeView;ind,ind2:integer;
.....
if TreeView1.Selected = nil then Exit;
Node := TreeView1.Selected;
if (Node.getFirstChild = nil)and(Node.Parent <> nil) then begin
TreeView1.Select(TreeView1.Items[Node.Parent.Index]);
end

[DENIS_1992]

всем спасибо я уже решил проблему