Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / oleTree / 4 сообщений из 4, страница 1 из 1
05.11.2004, 14:26
    #32770745
lesha_spb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleTree
Что никак не найду подходящего метода.Задача такая: перед переходом на новую вершину в дереве надо проверить некоторое условие после чего решить переходить на новую вершину или остаться на старой.Куда можно вставить эту проверку?
...
Рейтинг: 0 / 0
05.11.2004, 15:50
    #32770986
luser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleTree
NodeClick
...
Рейтинг: 0 / 0
06.11.2004, 13:25
    #32771698
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleTree
Собственно, такого метода в TreeView нет. Придется писать самому обработку.

Т.е. в методе NodeClick запоминать значение ключа выбранного узла и сравнивать со значением ключа выбранным ранее. Что-то вроде:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
*** ActiveX Control Event ***
LPARAMETERS node
LOCAL llisMove
llisMove = .T.
IF EMPTY(This.Tag)=.F. AND node.key<>This.Tag
	* Выбрали новый узел, проверяем допустимость перехода
	IF (перейти нельзя)
		llisMove = .F.
	ENDIF
ENDIF
IF m.llisMove = .T.
	* Запоминем значение ключа нового узла
	This.Tag = node.Key
ELSE
	* Возвращаемся к старому узлу
	This.SelectedItem = This.Nodes(This.Tag)
ENDIF


Пропертя Tag - это комментарий, который есть у всех объектов. Он никак не влияет на работу объекта. Это просто дополнительная текстовая пропертя.
...
Рейтинг: 0 / 0
09.11.2004, 13:26
    #32773458
lesha_spb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleTree
о таком варианте я тоже подумал, но не хотел его использовать т.к. возникает небольшое неудобство в моем конкретном случае. Ну чтож раз по другому никак то так и сделаю. Всем спасибо
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / oleTree / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]