Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c