Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Отключение системного меню [D7, Win95/98, WinXP]

Ilg © (2005-10-16 17:21:00)
Здравствуйте!
Как можно отключить появление системного меню (того, что возникает при щелчке по заголовку формы)? Form.BorderIcons не подходит, т. к. убирает иконку рядом с текстом заголовка формы (хотелось бы ее оставить).

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

begin...end (2005-10-16 20:46:00) [2]
> Ilg (16.10.05 17:21)
> Как можно отключить появление системного меню

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

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

CmdType and $FFF0

sniknik (2005-10-16 19:58:00) [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 (2005-10-16 19:11:00) [4]
2Piter:
Мне нужно, чтобы форму нельзя было переместить. Нашел способ как это сделать, перетащить за заголовок не получается, а вот через меню "Переместить" - да. Вот собственно за этим.

Piter (2005-10-16 19:06:00) [5]
У меня один вопрос - ЗАЧЕМ это делать?

Наверх

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