| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Меню формы [Delphi, Windows]

vampir_infernal ©   (2007-11-26 13:21:00) 

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

---

vampir_infernal   (2007-11-27 08:08:00) [1]

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

---

Дмитрий К   (2007-11-27 07:51:00) [2]

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

---

Jon   (2007-11-26 18:24:00) [3]


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;


---

vampir_infernal   (2007-11-26 17:19:00) [4]

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

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

---

Дмитрий К   (2007-11-26 14:51:00) [5]

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

---

Jon!   (2007-11-26 13:35:00) [6]

[MCK] KOLForm -> borderStyle = fbsToolWindow

---

Наверх