How to move Form with Borderstyle in bsNone

Asked

Viewed 264 times

1

How do I move the form after setting the property BorderStyle = bsNone? Because on the edges I can’t drag the form with the mouse.

delphi delphi-10

  • You already have some code ready to be analyzed?

  • No. I just put the property Borderstyle = bsNone in the Object Inspector.

1 answer

1


I found this in a forum, See if it works.

procedure TFormPrincipal.ImageFundoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
   sc_DragMove = $f012;
begin
  ReleaseCapture;
  Perform(wm_SysCommand, sc_DragMove, 0);
end;

  • blz guy. I’ll test here to see if funf.

Browser other questions tagged delphi delphi-10

You are not signed in. Login or sign up in order to post.