| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Выделение в TreeView [D7, 95/98, 2000, XP]

Димыч ©   (2007-01-25 10:51:00) 

Не пойму как сделать следующее: Не обходимо при клике по элементу Treeview его иконка изменялась с первой на вторую (это я реализовал легко), а вот как сделать так чтобы при повторном клике по томуже элементы его иконка вернулась вы исходное состояние я незнаю.

Вот так произвожу изменение с 1 иконки на 2ую:
procedure TForm10.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if node.StateIndex =3 then node.StateIndex:=2 else node.StateIndex :=3;
end;
при повторном клике того же элемента данное событие естественно не срабатывает, так как узнать что был произведен клик по уже выделеному элементу?

---

Elen   (2007-01-25 11:30:00) [1]

> Димыч

И как всегда не обратила внимание на то что ты обрабатываеш OnChange.
Stone лучше поблагодари.

---

Димыч   (2007-01-25 11:17:00) [2]

Всем спасибо, все работает! :)

Elen ты как всегда пришла первая на помощь, отдельное спасибо

---

TRUNK   (2007-01-25 11:08:00) [3]

Попробуй так:

procedure TForm10.TreeView1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
if (TreeView1.Selected.StateIndex = 3) then
 TreeView1.Selected.StateIndex := 2
else
 if (TreeView1.Selected.StateIndex = 2) then
   TreeView1.Selected.StateIndex := 3;
end;

---

stone   (2007-01-25 11:03:00) [4]

>  да только он не срабатывает при повтормон выделении элемента

Потому что ничего не меняется

> только как в Onclik'е узнать по какому элементу кликнули

Selected
только не забудь проверять его на nil

---

Elen   (2007-01-25 11:01:00) [5]

> только как в Onclik'е узнать по какому элементу кликнули

TreeView1.Selected.
Точно OnClick обрабатывай.

---

Димыч   (2007-01-25 11:00:00) [6]

Elen, так то же неполучается :(

Stone, обрабатываю я только Onchange (ты прав), да только он не срабатывает при повтормон выделении элемента (в связи с чем у меня не происходит изменение иконки). Интуитивно я догадываюсь что тут нужно задействовать еще одно событие типа Onclick (только как в Onclik'е узнать по какому элементу кликнули)

---

Elen   (2007-01-25 10:55:00) [7]

> Димыч

попробуй так :

procedure TForm10.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if node.StateIndex =3 then begin node.StateIndex:=2; Exit end;
if node.StateIndex =2 then node.StateIndex :=3;
end;

---

stone   (2007-01-25 10:55:00) [8]

Странный ты какой-то. Говоришь про клики (OnClick), а обрабатываешь OnChange

---

Наверх