Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

Использование TreeView.Selected.MoveTo(...);   Найти похожие ветки 

← →
mr.Spok   (2005-06-04 11:36) [0]

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

---

← →
Ученик   (2005-06-04 13:12) [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;



---

Страницы: 1 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.058 c