Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.026 c
1-1118330218
uran
2005-06-09 19:16
2005.06.29
проблема с изменением WindowState в FormActivate после создания


1-1117738255
Profi
2005-06-02 22:50
2005.06.29
Проблема при использовании dll в качестве plugina


9-1110944584
Кенвертнуть
2005-03-16 06:43
2005.06.29
Как или чем конвертнуть модельки из Max и Maya в 3ds ?


1-1117442139
Avals-Z
2005-05-30 12:35
2005.06.29
Работа с динамически созданными объектами


1-1117798590
Николай
2005-06-03 15:36
2005.06.29
Удаление записей помеченных на удаление из базы