Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизПроблемы при DragDrop в DBTreeList Найти похожие ветки
← →
RDA (2003-02-15 21:21) [0]Таблица (ID,PARENT,KIND,NAZV) где KIND - smallint и определяет тип записи (подразделение-0, отдел-1, сотрудник-2). Свойство DBTreeList DragMode=dmAutomatic. При переносе все работает отлично но есть одно но - дабы не нарушить логику иерархии написал следующий код
procedure TfmStr.TreeListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
TargetNode, SourceNode : TdxTreeListNode;
begin
TargetNode:=TreeList.GetNodeAt(X,Y);
SourceNode:=TreeList.FocusedNode;
if TargetNode<>nil then
case TargetNode.ImageIndex of
0 : if SourceNode.ImageIndex in [1,2,3] then Accept:=True;
1 : if SourceNode.ImageIndex in [2,3] then Accept:=True;
2 : Accept:=False;
else Accept:=False;
end;
end;
И все бы хорошо но нормально проходит перенос когда TargetNode.ImageIndex=0 и SourceNode.ImageIndex=0, хотя это явно запрещено в операторе выбора.
Может есть лучший способ оследить иерархию, посоветуйте мастера.
← →
MBo (2003-02-15 22:02) [1]Accept:=False;
TargetNode:=TreeList.GetNodeAt(X,Y);
SourceNode:=TreeList.FocusedNode;
if TargetNode<>nil then
Accept:=SourceNode.ImageIndex>TargetNode.ImageIndex;
это всё.
← →
RDA (2003-02-16 09:51) [2]Хотелось чтоб это было все. После такого кода, у меня вообще не работает DragDrop, хотя я и не вижу явной ошибки.
← →
RDA (2003-02-16 10:01) [3]Добавлю, DBTreeList.ImageIndexFieldName=KIND, и однозначно идентифицирует тип записи.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c