Mover un panel en tiempo ejecución por el form

[CarlosAlberto]

Estimados miembros del club Delphi: cómo puedo mover un panel por todo el formulario?. Gracias.

[ecfisa]

Hola CarlosAlberto.

Fijate si te sirve esto: Arrastrar y Soltar .

Saludos.

[cecam]

Hooola!!

Hace poco encontre esta otra forma

procedure mouseDownMoveWinControl(ctrl:TWinControl);
begin
  ReleaseCapture;
  ctrl.Perform(WM_NCLBUTTONDOWN,HTCAPTION,0);
end;

aunque no se bien que diferencia hay (entre los parámetros WM_NCLBUTTONDOWN vs WM_SYSCOMMAND y HTCAPTION vs $F012) con esta otra que se comenta en el otro hilo

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin   
   if ssCtrl in Shift 
   then begin     
         ReleaseCapture;
         (Sender as TControl).Perform(WM_SYSCOMMAND, $F012,0);
   end;
end;

Saludos!!

[Neftali [Germán.Estévez]]

Puesto que TPanel deriva de TControl, puedes utilizar este truco:

Mover controles de un form en runtime

Ahí también puedes ver cómo crearlos en ejecución.

(1) Baja el ejemplo
(2) Añade un panel al form
(3) Asigna los tres eventos del mouse ya creados (MouseDown, MouseMove y MouseUp)