mizsi 4 Share Posted March 29, 2009 Sziasztok! Adott két form, Form1 és Form 2. Az szeretném megoldani, hogy ha a Form1-et tudjam mozgatni, de ne csak a fejlécénél fogva, és ahogy mozgatom, úgy a Form 2 is mozogjon vele együtt. A mozgatást már annyival sikerült megoldanom, hogy betettem a Form 1-re egy hátteret és a procedure TForm1.BgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releasecapture; Form1.Perform(WM_SysCommand,$F012,0); Form2.Top:=Form1.Top; Form2.Left:=Form1.left+Form1.Width; end; kóddal, ha a form 1-et bárhol megfogom, tudom mozgatni. De ebben az esetben csak akkor kerül a Form1 mellé a Form2, ha az egeret felengedem. Van rá valami egyszerű megoldás? Köszönöm. 6 éve nem foglalkoztam Delphivel, és az agysejtjeim elkoptak ezügyben. Link to comment Share on other sites More sharing options...
mizsi 4 Author Share Posted April 17, 2009 Megvan a megoldás. Ha valakit érdekel, szívesen feldobom. Link to comment Share on other sites More sharing options...
zidan 0 Share Posted July 3, 2009 Igen engem érdekelne. Elég ha egy linket adsz rá és letöltöm. Elõre is köszi. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now