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
KÓD
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;
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.