Delphi move a form without a title bar

It is said that there are many ways

Procedure Txxxxform.formmousedown (sender:tobject;  Button:tmousebutton; Shift:tshiftstate; X, Y:integer), const  Sc_dragmove:integer = $F 012;begin  if Ssctrl in Shift and//Determine if the "Ctrl" key is pressed to  begin   ReleaseCapture;        Release the mouse event object    //(Sender as Twincontrol). PerForm (Wm_syscommand, sc_dragmove, 0);    The implementation moves within the component, if the top layer is the mobile form    //self.perform (wm_syscommand, sc_dragmove, 0);    Implement mobile Form    //sendmessage (Self.handle, Wm_nclbuttondown, htcaption, 0);    Implement mobile form  end;end;

The three paragraphs of the above note, #11, #13都可以起到移动窗体的效果.

Delphi move a form without a title bar