Recherche:

Bon j'ai opter pour un mécanisme différent.

Chacun de mes composants ont un parent Panel, je n'ai plus aucun problème.

p'tit photo :

http://rainconnu.free.fr/appercu.jpg

J'ai donc réalisé le hook.

J'ai un souci juste sur la libération de l'object de type DBCombobox.

Concrétement j'ai prévu pendant le Hook que sur un clique droit
Message WM_RBUTTONDOWN de...

Bon,

J'ai réussi à faire fonctionner mon Drag&Drop avec un Hook.

Merci

@Exemple de Hook qui j'avais eu il y a trés lontemps par AndNotOr, je l'ai évidement adapter pour la situation.

Je...

Désolé pour le copier-coller, et ce n'est pas un problème de variable,
Je parlais de Controls.Control pour Control.

Après avoir essayé le DragImageList sur projet sépararé qui marchais super où...

Bon je change la procédure Over du Panel


procedure TFDossierTiers.sPanelDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
Var
aBevel: TsBevel;
...

Bonjour,

Je réaliser un Drag and Drop d'un TListbox vers un Panel.

Drop

procedure TFDossierTiers.sListBoxObjetsDragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
if Source is...