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

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

Передвижение по TreeView1

Виталий Гаврилов ©   (2007-02-19 13:03:00) 

Как организовать передвижение по TreeView1 кнопками , т.е. дублировать перемещение по TreeView1 через кнопки?

---

Виталий Гаврилов   (2007-02-19 15:02:00) [1]

Олично спасибо, то что нужно!

---

clickmaker   (2007-02-19 13:33:00) [2]

TTreeNode.GetNextSibling / getPrevSibling, Parent, GetFirstChild etc

---

Elen   (2007-02-19 13:33:00) [3]

> Виталий Гаврилов ©   (19.02.07 13:30) [2]

Например так :
procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected.getNextSibling<>nil then begin
 TreeView1.Selected:=TreeView1.Selected.getNextSibling; end;
TreeView1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      if TreeView1.Selected.getPrevSibling<>nil then
 TreeView1.Selected:=TreeView1.Selected.getPrevSibling;
  TreeView1.SetFocus;
end;
А если хочеш по уровням скакать то убери "Sibling"

---

Виталий Гаврилов   (2007-02-19 13:30:00) [4]

TButton конечно :)

---

clickmaker   (2007-02-19 13:27:00) [5]

какие кнопки? TButton?

---

Наверх