VPF::Программно переместить курсор в VirtualTreeView

Erazer

Дата 10.7.2008, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.6.2008

Репутация: -1
Всего: -1

Как программно переместить курсор (выделение) в VirtualTreeView ?

VICTAR

Дата 10.7.2008, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Код


    VT.FocusedNode := lNode;
    VT.Selected[lNode] := True;

Erazer

Дата 10.7.2008, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.6.2008

Репутация: -1
Всего: -1

Пасип! Вот оно перемещение по дереву -

Код


VT.Selected[VT.FocusedNode] := False;
VT.FocusedNode:=VT.GetNext(VT.FocusedNode);
VT.Selected[VT.FocusedNode] := True;

aktuba

Дата 11.7.2008, 01:16 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

VICTAR, тебе показал как переместиться к любому ноду. Твой код перемещается только к следующему. Кстати, его можно написать проще:

Код


VT.FocusedNode:=VT.GetNext(VT.FocusedNode);

--------------------

Erazer

Дата 11.7.2008, 03:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.6.2008

Репутация: -1
Всего: -1

мне не нужно было к любому,нужно было к следующему, ну да не об том речь, можно, НО тогда выделенными становятся ВСЕ ноды по которым прошло перемещение.... Мне это не нужно, для этого приходится таскать за ним и выделение. Просто пришлось немного подумать прежде чем я догадался Как сделать, зачем кому то решать задачи которые МЫ уже решили ? Пусть решает другие - еще не решенные нами smile

Добавлено через 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 секунд
точнее на предыдущий smile

ну кому надо тот разберется smile

aktuba

Дата 11.7.2008, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата(Erazer @ 11.7.2008, 04:14

)

НО тогда выделенными становятся ВСЕ ноды по которым прошло перемещение....

Значит включен multiselect ;)

--------------------

Erazer

Дата 11.7.2008, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.6.2008

Репутация: -1
Всего: -1

ну прально включен стобы можно было несколько сразу выбрать....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »