Mover formulario sin estilo de borde

Question

¿cómo muevo un formulario sin bordes? Intenté buscar en Internet, pero nada. Muchas gracias.

Answer 1

puede arrastrar un formulario utilizando cualquier contenían control, incluyendo en sí.

Utilizando el siguiente ejemplo, puede mover un formulario haciendo clic en su lienzo y arrastrándolo. Podría hacer lo mismo con un panel en el formulario colocando el mismo código en el evento MouseDown del panel, lo que le permitiría crear su propia barra de pseudo subtítulos.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
const 
    SC_DRAGMOVE = $F012; 
begin 
    if Button = mbLeft then 
    begin 
    ReleaseCapture; 
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); 
    end; 
end; 

Answer 2

Si quiere decir arrastrar la ventana con el mouse, puede anular el manejo de mensajes WM_NCHITTEST y devolver HTCAPTION para la región de arrastre. La continuación se arrastre la ventana dentro de los superiores 30 píxeles para insance:

type 
    TForm1 = class(TForm) 
    private 
    protected 
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; 
    end; 

.. 

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); 
var 
    Pt: TPoint; 
begin 
    Pt := ScreenToClient(SmallPointToPoint(Message.Pos)); 
    if Pt.Y < 30 then 
    Message.Result := HTCAPTION 
    else 
    inherited; 
end;