![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перемещение формы относительно другой
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 и таскай второе окно за первым