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

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

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

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