Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

компонент дерево [D6]

RedBanner © (2007-05-05 23:55:00)
Подскажите как обработать нажатие элемента в "дереве"?

{RASkov} (2007-05-07 22:55:00) [1]
> [9] RedBanner © (07.05.07 21:21)

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

RedBanner (2007-05-07 21:21:00) [2]
А в Node какое значение должно быть?

{RASkov} (2007-05-07 19:19:00) [3]
> [7] Kedge © (07.05.07 09:32)
> Бывало, что после клика сообщение не выдавалось.

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

Kedge (2007-05-07 09:32:00) [4]
>[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;
Бывало, что после клика сообщение не выдавалось.

{RASkov} (2007-05-07 06:16:00) [5]
> [5] Kedge © (07.05.07 05:40)

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

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

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

Kedge (2007-05-07 05:40:00) [6]
> [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-06 22:15:00) [7]
См. [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;

Vasiliy (2007-05-06 22:05:00) [8]
Используй OnChange
TreeView1Change(Sender: TObject; Node: TTreeNode)
Node - выбранный элемент

RedBanner (2007-05-06 21:54:00) [9]
Нужно обработать момент нажатия на один из Items в TreeView

{RASkov} (2007-05-06 00:09:00) [10]
> [0] RedBanner © (05.05.07 23:55)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »