Mover cualquier visible componente en tiempo de ejecución

Mover cualquier visible componente en tiempo de ejecucion

Mover cualquier visible componente en tiempo de ejecucion : Multi-millones de consejos para hacer su vida mas facil.

Este codigo se movera ningun control en tiempo de ejecucion, aun no TWinControl descendientes.

asegurese de que ExtCtrls es en la clausula uses.
a Continuacion, establezca el evento OnMouseDown de los controles con el siguiente codigo.

procedure TForm1.MoveControl(Sender: TObject Boton: TMouseButton
Shift: TShiftState X, Y: Integer)
var
TempPanel : TPanel
Control : TControl
begin
//Liberar el MOUSEDOWN estado
ReleaseCapture
si el Remitente es TWinControl, a continuacion,
//Componente tiene una Manija, moverlo directamente
TWincontrol(Remitente).Realizar(WM_SYSCOMMAND,$f019,0)
else
//Componente no tiene ninguna de manejar, mover en un TPanel
prueba
Control := TControl(Remitente)
TempPanel := TPanel.Create(Self)
con TempPanel hacer
begin
//Reemplazar componente con TempPanel
Caption := '
BevelOuter := bvNone
SetBounds(de Control.A La Izquierda,De Control.La parte superior,
Control.Anchura,De Control.Altura)
Padre := Control.Los padres

//Poner nuestro control en el TempPanel
Control.Padre := TempPanel

//Mover TempPanel con el control dentro de
Realizar(WM_SYSCOMMAND,$F019,0)

//Colocar el componente en el que el panel se ha caido
Control.Padre := Padres
Control.A la izquierda := Izquierda
Control.Top : =
fin
finalmente
TempPanel.Libre
fin
fin