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

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

Drag&Drop [D7, WinXP]

VEZ ©   (2006-03-20 16:28:00) 

Как в TTreeView отменять перетаскивания нода(до того как он двинулся с места), если скажем свойство Tag у него равно 5.

---

MBo   (2006-03-21 16:12:00) [1]

сомнительно.

---

VEZ   (2006-03-21 16:10:00) [2]

Возможно это очередной косяк Delphi2005

---

MBo   (2006-03-21 15:58:00) [3]

У меня такого не происходит

---

VEZ   (2006-03-21 15:39:00) [4]

> MBo ©   (20.03.06 17:43) [3]
>
>
> procedure TForm4.TreeView1MouseMove(Sender: TObject; Shift:
>  TShiftState; X,
>  Y: Integer);
> begin
> if  DragDetect(TreeView1.Handle, Point(x,y)) then
>  if Odd(TreeView1.GetNodeAt(x,y).Index) then
>    TreeView1.BeginDrag(True);
> end;


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

---

MBo   (2006-03-20 17:43:00) [5]


procedure TForm4.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
if  DragDetect(TreeView1.Handle, Point(x,y)) then
 if Odd(TreeView1.GetNodeAt(x,y).Index) then
   TreeView1.BeginDrag(True);
end;


---

VEZ   (2006-03-20 17:05:00) [6]

А на лету нельзя случаем переключать dmManual и dmAutomatic, просто если это делать в OnMouseDown, то dmAutomatic включается не сразу, а только после следующего клика на ноде.

---

MBo   (2006-03-20 16:40:00) [7]

dmManual и проверять, что за Node под мышкой

---

Наверх