treeview

[Darcangel]

доброго времени суток. Есть вопрос работы с treeview в delphi
задача такая: Есть поля в treeview c каталогами и подкаталогами, нада при нажатии подкаталог выполнять какое нить действие ( к пирмеру присвоить переменной значение).

Просто при нажатии на каталог знаю как зделать, а вот с подкаталогами ещё неработал, пробывал искать в гугле нормальной темы так и не нашёл...
Зарание благадарен за помощь

[kettanaito]

Попробуйте использовать свойство Parent у узла TreeView. Если его значение не равно nil - значит это подкаталог.
Т.е. обработчик события нажатия все тот же, но при нажатии проверяем является ли нажатый узел дочерним или же он материнский (его свойство Parent = nil).

Вы это хотели узнать?

[Darcangel]

не мне не проверка нада "подкаталог ли" мне нада конкретное нажатие
ну вот к примеру идёт у меня древо

-тема 1
--->содержание
--->задачи
-тема 2
--->содержание
--->Задачи

При нажатии подкаталога темы 1 "содержание" мне необходимо присвоить переменной id значение 1
по другому подкаталогу естественно другое значение (id:=2)

мне эт нада значение чтоб потом выполнить запрос по базе

[Stilet]

Ну дык

procedure TForm1.TreeView1Click(Sender: TObject);
begin
..:=TTreeView(sender).Selected.Index;
end;

[Darcangel]

Нашёл что искал методом научного тыка ^_-
Вам всем спс Ваши примеры когда нить пригодятся
Проблема была в том что я немогу паравильно сформулировать вопрос
всё было просто

case TreeView1.Selected.AbsoluteIndex of
0: begin end;
1: begin end;
end;
т.е. у каждого коталога и подкаталога есть свой индекс
операясь на это я могу спокойно присвоить переменной значение, которое пойдёт в запрос в базу)

[flexterful]

Также можете использовать переменные листьев дерева ImageIndex, StateIndex, SelectedIndex : integer. Это всё для картинок, только мало кто это всё использует, чаще всего только ImageIndex. Туда можно во время проектирования (в едиторе дерева) либо во время заполнения дерева в "рунтайме" записать что надо. А дальше id := TreeView1.Selected.StateIndex;

[googl]

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

Нашёл что искал методом научного тыка ^_-
Вам всем спс Ваши примеры когда нить пригодятся
Проблема была в том что я немогу паравильно сформулировать вопрос
всё было просто

case TreeView1.Selected.AbsoluteIndex of
0: begin end;
1: begin end;
end;
т.е. у каждого коталога и подкаталога есть свой индекс
операясь на это я могу спокойно присвоить переменной значение, которое пойдёт в запрос в базу)

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

[Darcangel]

не эт просто я написал в общем...
так умя подругому мне интересно было сами индексы treeview

потом у мя идейт запрос в базу по этому индексу что в treeview и когда вэтот индекс есть в базе то выводится страничка
короч вот код:

// Функция поиска и вывода
function zapros(id:Integer; BD:string):string;
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT Hom FROM books WHERE (id = '+inttostr(id)+')');
Form1.ADOQuery1.Open;
zapros:=Form1.ADOQuery1.Fields[0].AsString;
end;

а эт вызов
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if index=0 then
WebBrowser1.Navigate(WideString(Get CurrentDir())+zapros(TreeView1.Sele cted.AbsoluteIndex+1,'books'))
else
WebBrowser1.Navigate(WideString(Get CurrentDir())+zapros(TreeView1.Sele cted.AbsoluteIndex+1,'test'));
end;

крабо код но пайдёт, только начал изучать ^_-