Отключение системного меню

← →
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;
по идее должно запретить перемещения, и из меню тоже.

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

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

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

CmdType and $FFF0

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

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