, denne kodeks vil bevæge sig enhver kontrol ved runtime, også ikke - twincontrol efterkommere., sørg for, extctrls er din bruger klausul., så der onmousedown tilfælde af deres kontrol med følgende kode. procedure tform1. movecontrol (afsender: tobject; knap: tmousebutton;,    skift: tshiftstate; x, y: heltal), var,    temppanel: tpanel;,    kontrol: tcontrol; begynder,    //- mousedown status,    releasecapture;,   , hvis afsenderen er twincontrol,      //komponent er et håndtag, flyt det direkte,      twincontrol (afsender). udføre (wm_syscommand, $f019,0),    andet,      //komponent ikke er klare, flyt det i en tpanel,      prøve,        kontrol: = tcontrol (afsender),        temppanel: = tpanel. skabe (selvstændige),        med temppanel,        begynder,      //erstatte komponent med temppanel,          forklaring: = '«,          bevelouter: = bvnone;,          setbounds (kontrol. venstre, control.top,,,          kontrol. bredde, kontrol. højde),          modervirksomhed: = kontrol. en forælder,          //sætte vores kontrol i temppanel,          control.parent: = temppanel;,          //flytte temppanel med kontrol i den,          udføre (wm_syscommand, $f019,0),          //- komponent, hvor panelet blev opgivet,       control.parent: = en forælder,          control.left: = venstre.         control.top: = top,       ;,      endelig        temppanel. gratis,     ;,;,