Delphi 7 - 2nd form can follow the position of the mainform -


how can make second form can follow position of main form wherever main form shifted. example, can seen in gif image:

screen capture video of moving 1 form , second following movements

i tried using delphidabbler tip, stop form moving, did not manage worked.

handle wm_windowposchanging move other form(s) @ same time.

  ...     public      oldtop, oldleft: integer;      procedure windowposchanging(var msg: twmwindowposchanging);        message wm_windowposchanging;    end;     ...   implementation     ...   procedure tform1.windowposchanging(var msg: twmwindowposchanging);  var      dtop, dleft: integer;  begin          // , here inside of put relationship of     // want him move.        // example of moving them in same sense can be...     if (form2 = nil) or (not form2.visible) exit;     // line avoid error of calling them when forms     // creating or when not visible...     dtop := top - oldtop;    dleft := left - oldleft;     form2.top := form2.top + dtop;    form2.left := form2.left + dleft;     oldtop := top;    oldleft := left;     inherited;  end; 

source: http://delphi.cjcsoft.net/viewthread.php?tid=43047
(original code updated according suggestions in comments)

or two forms snap each other


Comments

Popular posts from this blog

Java 3D LWJGL collision -

spring - SubProtocolWebSocketHandler - No handlers -

methods - python can't use function in submodule -