Como distinguir el elemento que estoy arrastrando

[Javi2]

Hola,
Tengo una ventana en la que en la parte inferior tengo un panel donde puedo arrastrar componentes de la propia ventana (ToolButtons, etiquetas,...). El problema es que me gustaría limitar esta posibilidad, permitiendo arrastrar únicamente la ToolButton.

¿Alguien sabe como puedo saber en cada momento el elemento que estoy arrastrando al panel? Creo que hay que utilizar el evento OnDockOver del Panel pero no sé como distinguir una ToolBar de un botón o un TLabel, por ejemplo.

Muchas gracias de antemano.

[roman]

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

[Javi2]

Muchas gracias roman. He seguido tu consejo y todo funciona de maravilla.

Perdón por la confusión, en lugar de ToolButton lo que quería distinguir era la ToolBar.

Muchísimas gracias.