| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Склеить формы. [D7, WinXP]

AMD ©   (2007-08-04 13:22:00) 

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

---

Инс   (2007-08-04 20:54:00) [1]

См функции:

BeginDeferWindowPos
DeferWindowPos
EndDeferWindowPos

---

Zagaevskiy   (2007-08-04 20:27:00) [2]

> винапе

винампе?

---

Eraser   (2007-08-04 14:36:00) [3]

> [0] AMD   (04.08.07 13:22)

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

---

Ping   (2007-08-04 13:42:00) [4]

Можно обрабатывать сообщение 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;

---

Наверх