Текущий архив: 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