Przenoszenie formularza bez stylu obramowania

Question

Jak przenieść formularz bez obramowania? Próbowałem szukać w Internecie, ale nic. Wielkie dzięki.

Answer 1

Możesz przeciągnąć formularz za pomocą dowolnej kontrolki, w tym samej siebie.

Korzystając z poniższego przykładu, możesz przenieść formularz, klikając jego płótno i przeciągając. Możesz zrobić to samo z panelem w formularzu, umieszczając ten sam kod w zdarzeniu MouseDown panelu, co pozwoli ci stworzyć własny pasek pseudopisów.

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

Jeśli chodzi o przeciągnięcie okna za pomocą myszy, można zastąpić obsługę wiadomości WM_NCHITTEST i zwrócić dla regionu przeciągania wartość HTCAPTION. Poniższe okno przeciągnie okno w górnej 30 pikseli dla 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;