|
No es lo mismo Docking que Dragging. En tu caso pienso que más bien es el evento OnDragOver. Este evento lo recibe una componente cuando otra se está arrastrando sobre ella y, si mal no recuerdo, su parámetro Source identifica a la componente que se está arrastrando. El parámetro Accept lo pones en true sólo para aquellas componentes que quieres poder arrastrar y la verificación entonces la podrías hacer así:
Accept := Source is TToolButton;
Aunque tengo mis dudas de que puedas realmente arrastrar un ToolButton fuera de su ToolBar.
// Saludos
|