Цитата:
Точно dmAutomatic стоит? А DragKind:=dkDrag?
Добавлено:
Код: procedure TfmSpr.dbTreeTypesDockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := Sender = Source;
ShowMessage('123');
end;