Ещё раз про TreeView

← →
DelphiNew (2004-07-13 09:59) [0]

Подскажите как можно перейти к предыдущему элементу верхнего уровня?

← →
Ega23 © (2004-07-13 10:04) [1]

Вот кусок из проета старого выдрал, может поможет.
Здесь tvSets:TTreeView.

function TFMain.FindNearest(const CurrentIndex:Integer; IsUp:Boolean):Integer;
begin
Result:=CurrentIndex;
if IsUp then
begin // движение по TreeView вверх
if (tvSets.Items[CurrentIndex].Text=tvNodeCaps[6]) or
(tvSets.Items[CurrentIndex].Text=tvNodeCaps[11]) then
tvSets.Selected:=tvSets.Items[CurrentIndex-1];
if (tvSets.Items[CurrentIndex].Text=tvNodeCaps[0]) then
tvSets.Selected:=tvSets.Items[DefaultNodeIndex];
end
else
begin // движение по TreeView ввниз
if (tvSets.Items[CurrentIndex].Text=tvNodeCaps[6]) or
(tvSets.Items[CurrentIndex].Text=tvNodeCaps[11]) then
tvSets.Selected:=tvSets.Items[CurrentIndex+1];
if (tvSets.Items[CurrentIndex].Text=tvNodeCaps[0]) then
tvSets.Selected:=tvSets.Items[DefaultNodeIndex];
end;
tvSets.OnClick(nil);
end;

← →
Ega23 © (2004-07-13 10:09) [2]

Мда, сейчас на код этот посмотрел...
Всё что тебе нужно, это
tvSets.Selected:=tvSets.Items[CurrentIndex-1];
или
tvSets.Selected:=tvSets.Items[CurrentIndex+1];

Ну, конечно, проверять, чтобы было 0<=Твой_Индекс<tvSets.Items.Count

← →
Семен Сорокин © (2004-07-13 10:10) [3]

TTreeNode.Parent
а еще есть у него св-во Level

← →
Семен Сорокин © (2004-07-13 10:12) [4]

и куча методов:
getFirstChild
GetLastChild
GetNext
GetNextChild
getNextSibling
GetNextVisible
GetPrev
GetPrevChild
getPrevSibling
GetPrevVisible
подробнее см. в справке (F1)

← →
DelphiNew (2004-07-13 11:10) [5]

Спасибо

← →
DelphiNew (2004-07-13 11:10) [6]

Спасибо за помощь

Ещё раз про TreeView Найти похожие ветки