Есть приложение exe. Есть модули DLL, которые загружает EXE. Модули содержат формы.
Форма рриложения EXE занимает верхнюю часть экрана.
Для того чтобы формы в DLL максимизировались и занимали оставшуюся часть экрана используется следующий код:
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
.....
procedure TBaseUiForm.WMSysCommand(var Message: TWMSysCommand);
var
aRect: TRect;
begin
inherited;
if Message.CmdType = SC_MAXIMIZE then
begin
GetWindowRect(Application.Handle, aRect);
Top := aRect.Bottom;
Height := Screen.Height - aRect.Bottom;
end
else inherited;
end;

где
Application.Handle в DLL = MainForm.Handle из EXE

Формы, по нажатию кнопки "Максимизировать" принимают правильные геометрические размеры (относительно главного окна),
но происходит мигание форм (видно что они сначала максимизируются на полный экран, а потом в указаный размер)
Почему так происходит?

Хочется создать поведение как в IDE Delphi, когда редактор кода максимизируется относительно окна с палитрой компонентов.

Убрал:
вот код
procedure TBaseUiForm.WMSysCommand(var Message: TWMSysCommand);
var
aRect: TRect;
begin
if Message.CmdType = SC_MAXIMIZE then
begin
GetWindowRect(Application.Handle, aRect);
Top := aRect.Bottom;
Height := Screen.Height - aRect.Bottom;
Width := Screen.Width;
Left := 0;
end
else inherited;
end;

Разворачивается как надо. но не устанавливается иконка "Восстановить".
в правом верхнем углу формы.
А также двойной клик по заголовку формы все равно разворачивает ее на весь экран.

Как правильно обрабатывать это сообщение?

oleg_e
Спасибо. Так и сделал