Jump to content
GSForum - Segélyvonal

Formok együttes mozgatása


mizsi

Recommended Posts

mizsi

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

  • 3 weeks later...
mizsi

Megvan a megoldás. Ha valakit érdekel, szívesen feldobom.

Link to comment
Share on other sites

  • 2 months later...
zidan

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...