Текущий архив: 2006.04.02;
Скачать: 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 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.044 c
