Скачать: CL | DM;

Drag&Drop   Найти похожие ветки 

← →
VEZ   (2006-03-20 16:28) [0]

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

---

← →
MBo ©   (2006-03-20 16:40) [1]

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

---

← →
VEZ   (2006-03-20 17:05) [2]

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

---

← →
MBo ©   (2006-03-20 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;


---

← →
VEZ   (2006-03-21 15:39) [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-21 15:58) [5]

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

---

← →
VEZ   (2006-03-21 16:10) [6]

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

---

← →
MBo ©   (2006-03-21 16:12) [7]

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

---

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

Скачать: CL | DM;



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