Drag and drop

Vi skal vist have lidt mere information: Er det MVC eller BCB ? Hvordan ser dine StartDrag, DropOver og EndDrop handlers ud ?

Nåå ja selfølgelig. Builder

Det eneste kode er, at jeg har lavet en Accept=true ved en DropOver event på PanelNr2

Ellers har jeg kun indstillet den i Object Inspectoren

Icon er sat til :
DragKind = dkDock
DragMode = Automatic

Modtager Panel har en Event:
OnDockDrop

Det virker også godt nok
Men hvis jeg nu klikker en gang på iconet så kommer der en lille blå bar frem øverst på iconet ligesom den man kender fra "minimer maximer eller luk"

Når jeg så klikker på iconet igen bliver alt normalt

Mit icon som jeg flytter er en Image component

mickni33 >> Jeg prøver lige at brygge et eksempel. Jeg vil tro at problement er at TImage ikke har nogen Parent mere efter den er blevet droppet.

Så har jeg også fået lavet eksemplet - og ja, det er korrekt at et enkelt-klik som default betyder at komponenten bliver et selvstændigt vindue. Det er standard funktionalitet, og skyldes at du jo kan droppe komponenten uden for "DockSites" også - sådan som du kender det fra f.eks. PaintShop PRO.

Hvad er det du ønsker ? Skal man kun kunne drag-og dock komponenten mellem to DockSites ? (Jeg prøver lige at finde en løsning på dette.)

Tror det er meget smart at den kan blive et selvstændigt vindue hvis man dropper den uden for panelet.Hmmmmm.

Men det skal ikke blive et vindue hvis den er over et panel.
Har gjort sådan, når den droppes på en panel så skifter den til Image4->DragMode=dmManual;

Så sidder den fast på panelet, men nu kan den så ikke flyttes mere....

Aaaahhh
Man kunne måske gøre sådan at hvis man klikker på Iconet igen Så lader jeg den skifter til Image4->DragMode=dmAutomatic

Prøver lige lidt igen

Du skal skrive en OnUndock event-handler til dine paneler, hvor du simpelthen afviser at un-docke til andet end et panel:

void __fastcall TForm1::Panel1UnDock(TObject *Sender, TControl *Client,
      TWinControl *NewTarget, bool &Allow)
{
  if (!NewTarget->ClassNameIs("TPanel"))
    Allow = false;       
}

Husk at tilknytte event-handleren til ALLE de paneler som kontrollen kan risikere/tillades at dock på.

Åhhh smart

NewTarget er tilsyneladende ikke altid sat, så event handleren skal rettes til:

void __fastcall TForm1::PanelUnDock(TObject *Sender, TControl *Client,
      TWinControl *NewTarget, bool &Allow)
{
  if (NewTarget == NULL
  || !NewTarget->ClassNameIs("TPanel"))
    Allow = false;
}