компонент дерево

← →
RedBanner © (2007-05-05 23:55) [0]

Подскажите как обработать нажатие элемента в "дереве"?

← →
{RASkov} © (2007-05-06 00:09) [1]

> [0] RedBanner © (05.05.07 23:55)

А что есть дерево? "Спроси" вопрос нормально....
TTreeView и OnClick?

← →
RedBanner © (2007-05-06 21:54) [2]

Нужно обработать момент нажатия на один из Items в TreeView

← →
Vasiliy (2007-05-06 22:05) [3]

Используй OnChange
TreeView1Change(Sender: TObject; Node: TTreeNode)
Node - выбранный элемент

← →
{RASkov} © (2007-05-06 22:15) [4]

См. [3], ну и вот для примера:
procedure TForm.TreeViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (htOnItem in TreeView.GetHitTestInfoAt(X,Y)) then ShowMessage(TreeView.GetNodeAt(X,Y).Text); end;

← →
Kedge © (2007-05-07 05:40) [5]

> [4] {RASkov} © (06.05.07 22:15)
>procedure TForm.TreeViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Сталкивался с такой странной вещью: TreeViewMouseUp, срабатывает не при каждом "MouseUp".
Имеется ввиду "правильниый MouseUp" - не над пустым местом. :)
Почему - не знаю. Разбираться не было времени.

← →
{RASkov} © (2007-05-07 06:16) [6]

> [5] Kedge © (07.05.07 05:40)

???
Что-то я не понял про что...Сорри.... Про конкретный пример в [4] или вообще? Если про [4] то там я лишь продемонстрировал, что у TreeView есть некие полезные методы, на которые следует обратить внимание в данной теме :) Вообщем я не понял
> Сталкивался с такой странной вещью: TreeViewMouseUp, срабатывает не при каждом "MouseUp".
Как это - через раз что ли? Не может быть :)

> Имеется ввиду "правильниый MouseUp" - не над пустым местом.

OnMouseUp "срабатывает" для "всего" TreeView, неважно что будет под мышой в момент "отпускания" кнопки....

← →
Kedge © (2007-05-07 09:32) [7]

>[6] {RASkov} © (07.05.07 06:16)
>> Сталкивался с такой странной вещью: TreeViewMouseUp, срабатывает не при каждом "MouseUp".
>Как это - через раз что ли? Не может быть :)
Ну, не через раз, а не всегда. Сам глазам не поверил.
Проверил так:
procedure TForm.TreeViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShowMessage("MouseUp");
end;
Бывало, что после клика сообщение не выдавалось.

> [7] Kedge © (07.05.07 09:32)
> Бывало, что после клика сообщение не выдавалось.

Странно все это... у меня такого не наблюдается. Не хочется верить в мистику :)

А в Node какое значение должно быть?

> [9] RedBanner © (07.05.07 21:21)

????
Очевидно выбранный итем(TTreeNode)....что не понятного?
Ты уж тодгда, с новой полученной информацией в этой ветке - перефразируй свой вопрос более понятно.

компонент дерево Найти похожие ветки