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

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

Использование TreeView.Selected.MoveTo(...); [D7, Win2k]

mr.Spok ©   (2005-06-04 11:36:00) 

Подскажите, как использовать функцию
MoveTo(..,..);
Мне надо в компоненте TreeView при щелчке мышью по кнопке "Переместить вверх" - переместить Item вверх,при щелчке мышью по кнопке "Переместить вниз" - переместить Item вниз.

---

Ученик   (2005-06-04 13:12:00) [1]



procedure TForm1.Button1Click(Sender: TObject);
begin
 if TreeView1.Selected <> nil then
   with TreeView1.Selected do
     if GetPrevSibling <> nil then
       MoveTo(GetPrevSibling, naInsert)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if TreeView1.Selected <> nil then
   with TreeView1.Selected do
     if GetNextSibling <> nil then begin
       if GetNextSibling.GetNextSibling = nil then
         MoveTo(Parent, naAddChild)
       else
         MoveTo(GetNextSibling.GetNextSibling, naInsert)
     end    
end;



---

Наверх