windows - Move form without border style -
how move borderless form? tried looking on internet, nothing. lot.
you can drag form using contained control, including itself.
using following example, can move form clicking on canvas , dragging. same panel on form putting same code in panel's mousedown event, let create own pseudo caption bar.
procedure tform1.formmousedown(sender: tobject; button: tmousebutton; shift: tshiftstate; x, y: integer); const sc_dragmove = $f012; begin if button = mbleft begin releasecapture; perform(wm_syscommand, sc_dragmove, 0); end; end;
Comments
Post a Comment