Скачать: CL | DM;

Отключение системного меню   Найти похожие ветки 

← →
Ilg   (2005-10-16 17:21) [0]

Здравствуйте!
Как можно отключить появление системного меню (того, что возникает при щелчке по заголовку формы)? Form.BorderIcons не подходит, т. к. убирает иконку рядом с текстом заголовка формы (хотелось бы ее оставить).

---

← →
Piter ©   (2005-10-16 19:06) [1]

У меня один вопрос - ЗАЧЕМ это делать?

---

← →
Ilg   (2005-10-16 19:11) [2]

2Piter:
Мне нужно, чтобы форму нельзя было переместить. Нашел способ как это сделать, перетащить за заголовок не получается, а вот через меню "Переместить" - да. Вот собственно за этим.

---

← →
sniknik ©   (2005-10-16 19:58) [3]

> Мне нужно, чтобы форму нельзя было переместить.
ну а про фигню всякую чё спрашиваеш, если нужно это?

> Нашел способ как это сделать
и как? (из чистого интереса)

> перетащить за заголовок не получается, а вот через меню "Переместить" - да.
ну так может и править сам способ а не лезть в меню(/связаное/последствия)?

не советую так делать... (сам такую прогу сотру, если стандартные функции проги не работают) но ...
TForm1 = class(TForm)
 ...
 private
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
 public
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin                              
 if not ((Message.CmdType = $F012) or (Message.CmdType = $F010)) then inherited;
end;
по идее должно запретить перемещения, и из меню тоже.

---

← →
begin...end ©   (2005-10-16 20:46) [4]

> Ilg   (16.10.05 17:21)
> Как можно отключить появление системного меню

Исключить стиль WS_SYSMENU, приготовиться к расстрелу.

> sniknik ©   (16.10.05 19:58) [3]

CmdType and $FFF0

---

← →
sniknik ©   (2005-10-16 20:56) [5]

begin...end ©   (16.10.05 20:46) [4]
потерять 14 команд в дополнение к этим двум? жестоко... семь лет расстрела, через день до смерти.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c