Source position: orca_scene3d.pas line 1097
type TD3DragOverEvent = procedure(
Sender: TObject;
const Data: TD3DragObject;
const Point: TD3Point;
var Accept: Boolean
) of object;