Перехват нажатия системной кнопки "свернуть"

← →
BAYES (2004-08-04 14:14) [0]

Здраствуйте.
Мне нужно при нажатии кнопки "свернуть", как-нибудь перехватить нажатие и не свернуть окно, а спрятать (Showwindow(findwindow(nil,"бла-бла"),SW_HIDE);

← →
Labert (2004-08-04 14:22) [1]

TMainForm = class(TForm) .... procedure WMMinimize(var Message: TMessage); message WM_SYSCOMMAND; .... end; implementation //обработчик минимизации окна procedure TMainForm.WMMinimize(var Message: TMessage); begin if Message.WParam = SC_MINIMIZE then DoSomething else inherited end;

← →
Юрий Зотов © (2004-08-04 14:28) [2]

> Labert (04.08.04 14:22) [1]

Remarks
...
In WM_SYSCOMMAND messages, the four low-order bits of the uCmdType parameter are used internally by Windows. To obtain the correct result when testing the value of uCmdType, an application must combine the value 0xFFF0 with the uCmdType value by using the bitwise AND operator.

if Message.WParam and $FFF0 = SC_MINIMIZE then ...

← →
BAYES (2004-08-04 14:38) [3]

Видел все это в справке, а и в и-нете, везде одно и тоже написано. Но мне, ввиду малого профессионализма,это не очень понятно.Я без зазрения совести просто воткнул этот код,компилятор ругается...!?

Labert (04.08.04 14:22) [1]
Не мог ли пояснить немного (если не влом).

← →
Sandman25 © (2004-08-04 14:41) [4]

[2] Юрий Зотов © (04.08.04 14:28)

То есть в описании TWMSysCommand ошибка?

← →
Sergey Kaminski © (2004-08-04 14:47) [5]

Sandman25 © (04.08.04 14:41) [4]
Почему ошибка?

← →
Sandman25 © (2004-08-04 14:56) [6]

TWMSysCommand = packed record
Msg: Cardinal;
case CmdType: Longint of
SC_HOTKEY: (
ActivateWnd: HWND);
SC_KEYMENU: (
Key: Word);
SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
SC_TASKLIST, SC_VSCROLL: (
XPos: Smallint;
YPos: Smallint;
Result: Longint);
end;

Нет учета особенности тех самых 4 битов.

← →
Labert (2004-08-04 15:12) [7]

2 BAYES
а что за ошибка? что компилятор говорит?

2 Юрий Зотов
Замечание принимаю...
Это вы откуда, из MSDNа взяли?

← →
Labert (2004-08-04 15:13) [8]

Проглядел сообщение Sandman25...
Получается что все-таки мой вариант правильный...

← →
BAYES (2004-08-04 15:34) [9]

Все разобрался, полазил по справкам, по талмудам.

У меня вышло вот так.

...
procedure WMMinimize(var Message: TMessage); message WM_SYSCOMMAND;
...
implementation

{$R *.dfm}

procedure TForm1.WMMinimize(var Message: TMessage);
begin
if Message.WParam = SC_MINIMIZE then form1.Visible:=False
Else Inherited;
end;

← →
BAYES (2004-08-04 15:35) [10]

Конечно вопрос был поставлен коряво. Простите. Пасиба всем.

> Sandman25 © (04.08.04 14:56) [6]

Почему ошибка? Невозможно ведь выделить подполя размером в 3.5 и 0.5 байта, вот они и не выделены. А в исходниках самой VCL везде стоит and $FFF0.

> Labert (04.08.04 15:12) [7]

Из обычной справки по WM_SYSCOMMAND. Но и в MSDN, естественно, сказано то же самое.

Перехват нажатия системной кнопки "свернуть" Найти похожие ветки