{"id":123,"date":"2007-05-12T14:38:25","date_gmt":"2007-05-12T12:38:25","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/moving-forms-without-a-caption-bar\/"},"modified":"2007-05-12T14:38:27","modified_gmt":"2007-05-12T12:38:27","slug":"moving-forms-without-a-caption-bar","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/moving-forms-without-a-caption-bar\/","title":{"rendered":"Moving Forms without a caption bar"},"content":{"rendered":"

Thomas wrote:<\/p>\n

> Hi Kire,
\n>
\n> If I can remember, the method to perform such operation was to hook the
\n> WM_NCHITTEST message and re-direct it to the caption bar ; thus, u fake a
\n> click on the caption bar so your form can move.
\n> Regards,
\n> Thomas.
\n<\/em>
\n
\nVon: Juan Jos?Grajeda
\nBetreff: Re: Moving formswithout caption bar.
\nDatum: Dienstag, 30. M\u00e4rz 1999 01:35<\/p>\n

The method Thomas say is this:
\n[code lang=”delphi”]
\n TForm1 = Class(TForm);
\n …
\n private
\n procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
\n …
\n end;<\/p>\n

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
\n begin
\n inherited;
\n if M.Result = htClient then { Test if you are in the client area
\n}
\n M.Result := htCaption; { change it to the caption area}
\n end;
\n[\/code]
\nThis are other ht constants
\n HTBORDER, HTBOTTOM, HTBOTTOMLEFT, HTBOTTOMRIGHT, HTCAPTION,
\n HTCLIENT, HTERROR, HTNOWHERE, HTGROWBOX, HTHSCROLL, HTLEFT,
\n HTMENU, HTNOWHERE, HTREDUCE, HTRIGHT, HTSIZE, HTSYSMENU,
\n HTTOP, HTTOPLEFT, HTTOPRIGHT – Canto direito superior da janela
\n HTTRANSPARENT, HTVSCROLL, HTZOOM<\/p>\n

Regards,
\n Juan Jose<\/p>\n

To hook the WM_NCHITTEST message is only the solution if the user has
\nthe possibility to do a click at the form directly. If the form is
\ncovered by e.g. a panel then you can use <\/p>\n

[code lang=”delphi”]procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
\n Shift: TShiftState; X, Y: Integer);
\nconst
\n SC_DRAGMOVE = $F012; \/\/ a magic number, no idea where it’s documented
\nbegin
\n if Button = mbLeft then
\n begin
\n ReleaseCapture;
\n Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
\n end;
\nend;
\n[\/code]<\/p>\n

Good luck!
\nToni<\/p>\n

Toni Sanders wrote:<\/p>\n

> SC_DRAGMOVE = $F012; \/\/ a magic number, no idea where it’s documented<\/p>\n

That Number comes from: SC_DRAGMOVE = SC_Move + htCaption<\/p>\n

this command emulates the the user action clicking the caption of a window to move.
\nIf you don’t add htCaption the command is handled by the keyboard instead.<\/p>\n

best regards
\nJuan Jose<\/p>\n

[tags]Delphi, Forms[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Thomas wrote: > Hi Kire, > > If I can remember, the method to perform such operation was to hook the > WM_NCHITTEST…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,100],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1Z","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/123"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=123"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/123\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=123"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=123"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=123"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}