TreeView

← →
Viginal (2003-05-18 06:10) [0]

Народ помогите пожалуйста!!! как по щелчку правой кнопки мыши в TreeView на Items(на папку)
открывалось контестное меню(PopupMenu) (именно на папку(Items))!!!
Буду очень благодарен!!!

← →
Olivka © (2003-05-18 11:22) [1]

Поскольку ответов других нету, попробую сообразить

Я бы сделала так
Вначале обрабатываешь событие OnMouseDown и запоминаешь - левая или правая была нажата (записываешь в переменную)
Потом или здесь же или в событии On Click можно написать

IF (TTreeView(Sender).Selected <> nil) и если была нажата правая клавиша Then
показать меню popup
Ну или что-то в этом роде (возможно событие надо подобрать получше)

← →
DrPass © (2003-05-18 11:27) [2]

Можно в событии OnChange подставлять нужное Popup в зависимости от типа выделенного нода

1. При построении дерева:
Node.Data := Pointer(IsFolder)
(IsFolder - логическое выражение: если папка - True, иначе False)

2. В OnChange:
with TreeView(Sender) do
if Boolean(Selected.Data)
then PopupMenu := MyPopupMenu
else PopupMenu := nil

TreeView Найти похожие ветки