Formular ohne Rahmen bewegen

Question

Wie verschiebe ich ein randloses Formular? Ich habe versucht, im Internet zu suchen, aber nichts. Danke vielmals.

Answer 1

Sie können eine Form unter Verwendung eines beliebigen ziehen Steuerelement enthalten, einschließlich sich selbst.

Mithilfe des folgenden Beispiels können Sie ein Formular verschieben, indem Sie auf seine Zeichenfläche klicken und ziehen. Sie können das gleiche mit einem Panel auf dem Formular tun, indem Sie denselben Code in das MouseDown-Ereignis des Panels einfügen, mit dem Sie Ihre eigene Pseudo-Titelleiste erstellen können.

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

Wenn Sie das Fenster mit der Maus ziehen möchten, können Sie die Nachrichtenbehandlung WM_NCHITTEST überschreiben und HTCAPTION für die Ziehregion zurückgeben. Die unten wird das Fenster innerhalb der oberen 30 Pixel für insance ziehen:

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;