Перейти к содержанию
Fire Monkey от А до Я
  • 0

Перемещение из ListBox в TreeView (Drag and Drop)


Pavel M

Вопрос

Добрый день!

 

TreeRazdel (TTreeView) отражает разделы с подкатегориями

 

ListDocs (TListBox) отражает элементы выбранной категории

 

Необходимо перемещение элементов ListDocs по категориям (с изменениями в БД)

 

Включаю AllowDrag для ListDocs и TreeRazdel.

procedure TFormMain.TreeRazdelDragDrop(Sender: TObject;
  const [Ref] Data: TDragObject; const [Ref] Point: TPointF);

begin

if Data.Source is TListBoxItem then
   begin
     idRazdel := TreeRazdel.ItemByPoint(Point.X,Point.Y).Tag;
     idDocs := (Data.Source as TListBoxItem).Tag;

     //(Data.Source as TListBoxItem).Free; - ДАЁТ ОШИБКУ

     if (idRazdel > 0) and (idDocs >0) then  
     MoveDocs(idDocs, idRazdel); //процедура перемещения элемента в другой раздел

   end;

end;

Проблемы:

1) Элементы ListBox реально переносятся в TTreeView (как их сразу же уничтожать?)

2) При перемещении в свободное место TTreeView (не в категорию) - ошибка

3) При включении у TTreeView  DragMode := dmAutomatic не возможно выбрать его элементы.

Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...