PHP DM Gate v0.9 » Меню формы <span class="vd">[Delphi, Windows]</span>

vampir_infernal (26.11.07 13:21) [0]

Здравствуйте, уважаемые.
При правом клике по заголовку окна появляется небольшое меню с пунктами "Восстановить", "Развернуть" и т.д.
Собственно вопрос: как заблокировать (сделать неактивным) пункт "Развернуть" этого меню?

<Цитата>
Jon! (26.11.07 13:35) [1]

[MCK] KOLForm -> borderStyle = fbsToolWindow

<Цитата>
Дмитрий К © (26.11.07 14:51) [2]

Form.Style := Form.Style and not WS_MAXIMIZEBOX;

<Цитата>
vampir_infernal (26.11.07 17:19) [3]

> Form.Style := Form.Style and not WS_MAXIMIZEBOX;

такой вариант у меня только убирает кнопку максимизации из заголовка.

<Цитата>
Jon © (26.11.07 18:24) [4]

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
Result := False;
case Msg.message of
WM_SYSCOMMAND:
if (Msg.wParam and SC_MOUSEMENU) = SC_MOUSEMENU then
Result := True;
end;
end;

<Цитата>
Дмитрий К © (27.11.07 07:51) [5]

RemoveMenu(GetSystemMenu(Form.Handle,False),4,MF_BYPOSITION);

<Цитата>
vampir_infernal (27.11.07 08:08) [6]

Большое спасибо, вариант с RemoveMenu меня устроил.

<Цитата>