Меню формы

← →
vampir_infernal (2007-11-26 13:21) [0]

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

← →
Jon! (2007-11-26 13:35) [1]

[MCK] KOLForm -> borderStyle = fbsToolWindow

← →
Дмитрий К © (2007-11-26 14:51) [2]

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

← →
vampir_infernal (2007-11-26 17:19) [3]

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

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

← →
Jon © (2007-11-26 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;

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

← →
vampir_infernal (2007-11-27 08:08) [6]

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

Меню формы Найти похожие ветки