мне не нужно было к любому,нужно было к следующему, ну да не об том речь, можно, НО тогда выделенными становятся ВСЕ ноды по которым прошло перемещение.... Мне это не нужно, для этого приходится таскать за ним и выделение. Просто пришлось немного подумать прежде чем я догадался Как сделать, зачем кому то решать задачи которые МЫ уже решили ? Пусть решает другие - еще не решенные нами 
Добавлено через 2 минуты и 25 секунд
а вообще весь код перехода на след узел у меня выглядит так :| Код |
procedure TfmMain.btn3Click(Sender: TObject);
label Start;
var
FileNode: PFileNode;
TmpNode: PVirtualNode;
begin
Start:
VT.Selected[VT.FocusedNode] := False;
TmpNode := VT.FocusedNode; // сохраним чтобы использовать если будет нужно
VT.FocusedNode := VT.GetPrevious(VT.FocusedNode);
if VT.FocusedNode = nil then begin // если конец то остаемся на месте
VT.FocusedNode := TmpNode;
VT.Selected[TmpNode] := True;
Exit;
end;
FileNode := VT.GetNodeData(VT.FocusedNode);
if Assigned(FileNode) then
with FileNode^ do
begin
if IsFile = False then goto Start else VT.Selected[VT.FocusedNode] := True;
end;
btn4Click(Sender); //прекратить играть
end;
|
Добавлено через 3 минуты и 20 секунд
точнее на предыдущий ну кому надо тот разберется  |
