How to move the form that does not have a title

zhaozj2021-02-08  261

1. How to move the form of the "deception" system without title, let him think that the title is the title of the form: Declaring the following statement in the form of the form: Procedure Wmnchittest; Message WM_NCHITTEST; Implementation: procedure tform1.wmnchittest (var M: twmnchittest); begin inherited; if m.result = htclient dam = htcaption; end; ** More simple method is: In the form (or Other Visual Controls The ONMOUSEMOVE event adds such a statement: if (SSLEFT in shift). The begin ReleaseCapture; Perform (WM_SYSCOMMAND, $ F012, 0); END; and this method is more flexible than the previous.

转载请注明原文地址:https://www.9cbs.com/read-2485.html

New Post(0)