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

Большое спасибо.

Drag n Drop в наследнике от TTreeView Найти похожие ветки