Как выставить свойства форм, что бы:
главная форма при максимизировании, разворачивалась вверх, а высота оставалась прежней (как в делфи)
остальные формы при максимизировании, разворачивались только до окна главной формы, тоже как в делфи?

TForm2 = class(TForm)
private
{ Private declarations }
procedure WMGetMinMaxInfo(var Message:TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
....

procedure TForm2.WMGetMinMaxInfo(var Message:TWMGetMinMaxInfo);
var top: integer;
begin
top:=Form1.Top+Form1.Height;
Message.MinMaxInfo.ptMaxPosition.Y := top;
Message.MinMaxInfo.ptMaxSize.Y:=Screen.Height-top;
inherited;
end;

Вот так оно и получилось со 2й формой,
с первой можно выставить значение как MaxHeight в Constraints, так и использовать в Form1.WMGetMinMaxInfo Message.MinMaxInfo.ptMaxSize.Y:=***;

Всем спасибо за помощь.