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:
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)
Comments
Post a Comment