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

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

Перемещение формы относительно другой


Armageddon ©   (2003-02-05 21:57:00) 

Как сделать так,чтобы второстепенно окно(не child) создавалось или автоматически перемещалось так, чтобы его левая сторона была рядом со стороной главной формы.


Palladin   (2003-02-05 22:12:00) [1]

uses ..., Unit2{вторая форма};

MainForm=class (....
...
private
procedure OnFormMove(var Msg:TMessage); message WM_MOVE;

...


procedure MainForm.OnFormMove;
begin
Form2.Left:=Left+Width+1;
Form2.Top:=top;
end;

и главное проследи что бы вторая форма создавалась раньше первой.


Palladin   (2003-02-05 22:02:00) [2]

обрабатывай сообщение WM_MOVE и таскай второе окно за первым


Наверх

Титульная страница Поиск, карта сайта Написать письмо