Mover componentes

[Perrero80]

Como puedo mover los diferentes componentes que se encuentran en un formulario al pulsarlo y moverlo simultaneamente, e estado intentando dandole el valor la posicion del puntero (x,y) al top y left del componente pero no me funciona muy bien, mejor dicho no funciona ....Les agradezco de antemano.

[Sotrono]

Hola, a ver si te sirve esto:

Código Delphi [-]
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then begin
    Button1.Top := Mouse.CursorPos.Y - Form1.Top;
    Button1.Left := Mouse.CursorPos.x - Form1.Left;
  end;
end;

Bytes.

[Perrero80]

Chevere, pero no entendi muy bien esto:

Código Delphi [-]
if ssLeft in Shift then

Me lo podrias explicar?

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

Revisa el componente TSelectOnRuntime de mi página web; Está pensado justo para hacer eso.
Descargalo y revisa la demo que trae; Permirte mover los diferentes controles de un formulario. Trae el código fuente, así que puedes echarle un vistazo.

[Sotrono]

Chevere, pero no entendi muy bien esto:

Código Delphi [-]
if ssLeft in Shift then

Me lo podrias explicar?

En Shift se almacena el estado de algunos botones, como shift, Ctrl, os botones del mouse, etc. En esa linea se chequea si el boton izquierdo del mouse esta apretado. Cualquier cosa revisa la ayuda de TShiftState.