перетаскивание в TreeView

Litvinenko_A · 24.08.2008, 15:42

Здравствуйте. Помогите, кто знает. Пишу прогу под MS Sql Server 2005. Есть TreeView, который заполняется из базы. У него есть проца для перетаскивания узлов. Свойство Dragmode стоит в dmManual. 'Запуск' пкрктаскивания сделан след. образом
procedure TForm1.TreeView1(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
TreeView1.BeginDrag(true);
end;
Само перетаскивание реализовано в DragDrop и DragOver.
Теперь любое нажатие инициирует перетаскивание, даже если мышу на 1 пиксел передвинул. Как сделать проверку что перемещение идет в другой узел или как определить 'расстояние' между узлом источником и приемником

Freezer_86 · 08.09.2008, 11:44

Поставь Dragmode в dmAutomatic и он все сам будет просчитывать, а отлавлюй уже события когда тебе ненужно перетаскивать

24.08.2008, 15:42	#1
Litvinenko_A Неактивный пользователь Пол: Регистрация: 19.06.2008 Сообщений: 95 Репутация: 1	перетаскивание в TreeView Здравствуйте. Помогите, кто знает. Пишу прогу под MS Sql Server 2005. Есть TreeView, который заполняется из базы. У него есть проца для перетаскивания узлов. Свойство Dragmode стоит в dmManual. 'Запуск' пкрктаскивания сделан след. образом procedure TForm1.TreeView1(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then TreeView1.BeginDrag(true); end; Само перетаскивание реализовано в DragDrop и DragOver. Теперь любое нажатие инициирует перетаскивание, даже если мышу на 1 пиксел передвинул. Как сделать проверку что перемещение идет в другой узел или как определить 'расстояние' между узлом источником и приемником

08.09.2008, 11:44	#2
Freezer_86 Неактивный пользователь Пол: Регистрация: 08.09.2008 Сообщений: 1 Репутация: 0	Re: перетаскивание в TreeView Поставь Dragmode в dmAutomatic и он все сам будет просчитывать, а отлавлюй уже события когда тебе ненужно перетаскивать

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перетаскивание объектов на странице ... Как?	MrSnaKe	HTML	7	19.02.2010 19:42
Как разрешить перетаскивание ярлыков	mihail197	Windows XP	2	22.01.2010 12:29
Как убрать квадратики для Checknode на определенных узлах TreeView?	Andrew I	Borland C++ Builder	0	24.09.2009 08:24
Перетаскивание узлов по TTreeView	Litvinenko_A	Delphi	4	18.11.2008 17:32
TreeView дерево	plahmonah	Delphi	7	15.11.2007 12:44