Скачать: CL | DM;

Таскаем форму...   Найти похожие ветки 

← →
Fly` ©   (2003-05-20 15:42) [0]

Уважаемые ! Есть две формы ! При загрузки первой загружается вторая и смысл такой, что вторая расположена StayOnTop относительно первой. Ну на ресайз формы я повесил всё просто и безобразно :
procedure TForm1.FormResize(Sender: TObject);
begin
Form2.Left:=Form1.Left+5;
Form2.width:=Form1.Width-10;
Form2.Top:=Form1.Top+100;
Form2.Height:=Form1.Height-120
end;
Так вот проблема в том, чтобы при перетаскивании формы первой, перетаскивалась бы и вторая.. как это сделать ?

---

← →
Юрий Зотов ©   (2003-05-20 15:49) [1]

Обработчик WM_WINDOWPOSCHANGED. Там и позиция, и размеры.

---

← →
Романов Р.В. ©   (2003-05-20 15:50) [2]

WM_MOVE
WM_MOVING

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c