Интерфейс как в Delphi

← →
shyko (2003-09-27 04:50) [0]

Plz, поделитесь сведениями, как создать в приложении интерфейс подобный тому, который есть в IDE Delphi.
А именно: чтобы главная форма с тулбарами была align = alTop (с этим проблем нет). А остальные окна приложения при максимизации не закрывали главное окно. Если эта проблема решается только путем перехвата Windows Messages, то как корректно перехватить эти самые messages.

← →
Юрий Зотов (2003-09-27 05:36) [1]

type
TMyForm = class(TForm)
...
private
procedure WMGetMinMaxInfo(var Message: TMessage); message WM_GETMINMAXINFO;
...
end;

procedure TMyForm.WMGetMinMaxInfo(var Message: TMessage);
begin
inherited;
with TMinMaxInfo(Pointer(Message.LParam)^) do
begin
ptMaxSize.X := ...;
ptMaxSize.Y := ...;
ptMaxPosition.X := ...;
ptMaxPosition.Y := ...;
ptMinTrackSize.X := ...;
ptMinTrackSize.Y := ...;
ptMaxTrackSize.X := ...;
ptMaxTrackSize.Y := ...;
end;
end;

Детали см. в справке API по сообщению WM_GETMINMAXINFO и структуре MINMAXINFO;

Интерфейс как в Delphi Найти похожие ветки