Текущий архив: 2008.11.30;
Скачать: CL | DM;
Вниз
Меню формы Найти похожие ветки
← →
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;
← →
Дмитрий К © (2007-11-27 07:51) [5]
RemoveMenu(GetSystemMenu(Form.Handle,False),4,MF_BYPOSITION);
← →
vampir_infernal (2007-11-27 08:08) [6]Большое спасибо, вариант с RemoveMenu меня устроил.
Страницы: 1 вся ветка
Текущий архив: 2008.11.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
