Текущий архив: 2004.03.09;
Скачать: CL | DM;
Вниз
Drag n Drop в наследнике от TTreeView Найти похожие ветки
← →
Pahan_ (2004-02-26 16:16) [0]Доброго времени суток, Мастера. Я делаю компонент - наследник от TTreeView. В нем, помимо всего прочего, имеются две опции:
Первая - разрешает производить Drag"n"Drop всех узлов.
Вторая - разрешает производить Drag"n"Drop узлов с Level=0, а Level конечных узлов также должен быть равен 0.
Есть такой код:
procedure TmyTreeView.DragDrop(Source: TObject; X, Y: Integer);
begin
If FDragNodes=True Then
Selected.MoveTo(GetNodeAt(X,Y),naInsert);
inherited DragDrop(Source, X, Y);
end;
procedure TmyTreeView.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
If FDragNodes=True Then
Begin
If FFullDrag=True Then
Accept:=True
Else
Accept:=(Selected.Level=0) And (GetNodeAt(X,Y).Level=0);
End;
inherited DragOver(Source, X, Y, State, Accept);
end;
При Drag"n"Drop возникает Acces violation. Почему это происходит и как исправить? Буду благодарен за любую информацию - ссылки, код и т.д. Спасибо.
← →
Pahan_ (2004-02-26 16:17) [1]> При Drag"n"Drop возникает Acces violation.
Уточнение - при Drag"n"Drop на область незаполненую узлами.
← →
MBo © (2004-02-26 16:27) [2]GetNodeAt проверять надо на Nil
← →
Pahan_ (2004-02-26 16:55) [3]2 MBo
Большое спасибо.
Страницы: 1 вся ветка
Текущий архив: 2004.03.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
