Buscar por:

Movendo Form sem Barra de Titulo

Código

Declare as variaveis publicas

xxx, yyy: integer;

Captura : Boolean;

Depois implemente o codigo aseguir onde desejar o comando de movimento nesse caso eu usei um Timagem

procedure TMSN.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

xxx:= x;

yyy:= y;

Captura := true

end;

procedure TMSN.Image1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

Captura := False;

end;

procedure TMSN.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  if Captura = True then

  begin

   Screen.ActiveForm.Left := Screen.ActiveForm.Left + X - xxx;

   Screen.ActiveForm.Top := Screen.ActiveForm.Top + Y - yyy;

  end;

end;