Текущий архив: 2007.08.26;
Скачать: CL | DM;

Вниз

Склеить формы.   Найти похожие ветки 

← →
AMD   (2007-08-04 13:22) [0]

Здравствуйте!
Есть две формы надо сделать так чтобы когда двигалась одна то за ней двигалась и вторая.Т.е "склеить их" , как в винапе например. Заранее спасибо.

---

← →
Ping   (2007-08-04 13:42) [1]

Можно обрабатывать сообщение WM_MOVE:

TForm1 = class(TForm)
private
 procedure WMMove(var a_Msg: TWMMove); message WM_MOVE;
end;

procedure TForm1.WMMove(var a_Msg: TWMMove);
begin
 if (Form2 <> nil) then
 begin
   Form2.Left := Left;
   Form2.Top := Top + Height;
 end;
end;

---

← →
Eraser ©   (2007-08-04 14:36) [2]

> [0] AMD   (04.08.07 13:22)

в JEDI VCL есть компонент такой, посмотри как сделан.

---

← →
Zagaevskiy ©   (2007-08-04 20:27) [3]

> винапе

винампе?

---

← →
Инс ©   (2007-08-04 20:54) [4]

См функции:

BeginDeferWindowPos
DeferWindowPos
EndDeferWindowPos

---

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

Текущий архив: 2007.08.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c