TreeView назначить событие на конкретный узел

← →
Николай1 (2005-09-19 14:36) [0]

Добрый день. Мастера может кто знает как назначить событие на конкретный узел TreeView.

Я на основание MainMenu Строю дерево

В StateIndex записываю номер компонента TMenuItem и принажатии в дереве на узел вызываю его поцедуру

Вот код:
Он на событие OnClick TreeView

if Assigned(TMenuItem(Components[TreeView1.Selected.StateIndex]).OnClick) then
TMenuItem(Components[TreeView1.Selected.StateIndex]).OnClick(Sender);

Вопрос вот вчём когда узел выделен то щёлкая мышью
по любому месту TreeView выполняется событие Selected узла
как этого избежать может кто уже сталкивался подскажите пожалуйста.
Зарание спасибо.

← →
Digitman © (2005-09-19 14:44) [1]

> выполняется событие Selected узла

нет такого события.
тем более - у узла.

← →
Николай1 (2005-09-19 14:49) [2]

Да я сам знаю что это не событие а его свойство
дак вопросто не втом событие это иле не событие

а как сделать так чтобы при нажатии на узел только на узел выполнялось соответствующие событие у MenuItem

← →
Digitman © (2005-09-19 14:56) [3]

> при нажатии на узел только на узел

сам-то понял что сказал ?

← →
Николай1 (2005-09-19 15:03) [4]

Сам то понял, только ты что-то догнать неможещь, что у него ещё свободного места до х..... и больше и при нажатии на это свободное место в событии OnClick сробатывает обработка Selected-"выделенного" узла а так неннадо чтобы она срабатывала вот я и спрашиваю как
а стебаться зае уже.....

← →
Kray © (2005-09-19 15:49) [5]

мышь контролируй, т.е. если ее позиция вписывается в выбраный диапазон

← →
Ega23 © (2005-09-19 15:54) [6]

Пиши в Node.Data адрес нужной процедуры

← →
Leonid (2005-09-19 16:06) [7]

procedure TStartForm.TreeView1DblClick(Sender: TObject);
Var
MyHitTest : THitTests;
begin
//X1Mouse,Y1Mouse - координаты мыши из OnMouseMove
MyHitTest := TreeView1.GetHitTestInfoAt(X1Mouse,Y1Mouse);
if htNowhere in MyHitTest then Exit; //проверка попадания в пункт

N:=TreeView1.Selected.AbsoluteIndex;//В редакторе TTreeView - State Index
Case N of
1: begin

← →
Николай1 (2005-09-19 16:12) [8]

Извени а чють поподробней про Node.Data можно и как вызвать потом
установил так:
TreeView1.Items[0].Data:=@N19.OnClick;

← →
Николай1 (2005-09-19 16:48) [9]

Извните за назойливость но очень надо можно чють чють поподробней про
Node.Data

Мы, божьей милостью Николай 1-й, родную словесность не знали и знать не желаем.

Нам, Николаям 1-ым, индифферентны правила пунктуации русского языка.

Нам, Николаям 1-ым, по колено правила правописания гласных после шипящих - не царское это дело !

У нас, Николаев 1-вых, принято говорить "до х..... и больше ", "зае..", когда нам, Николям N-ным, намекают на дурь несусветную в вопросе нашем, а так же на вопиющее наше Паскаля незнание.

TreeView назначить событие на конкретный узел Найти похожие ветки