移动无边框样式

Question

如何移动无边框样式？我试过在网上看，但没有。非常感谢。

Answer 1

可以拖动使用任何含有控制，包括自身的形式。

使用以下示例，您可以通过单击其画布并拖动来移动窗体。通过在面板的MouseDown事件中放置相同的代码，您可以对窗体上的面板执行相同的操作，这将允许您创建自己的伪字幕栏。

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

如果您是指通过鼠标拖动窗口，则可以覆盖WM_NCHITTEST消息处理并返回HTCAPTION作为拖动区域。下面将上部30个像素内拖动窗口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;