Событие окна

← →
Ренат (2002-07-15 10:04) [0]

Добрый денью
Какая процедура вызывается при сворачивании окна?
Никак не могу найти.

← →
Виктор Щербаков © (2002-07-15 10:05) [1]

Приходит сообщение WM_SYSCOMMAND с параметром SC_MINIMIZE.

← →
Ренат (2002-07-15 10:15) [2]

А как его поймать-то?

← →
MBo © (2002-07-15 10:17) [3]

обработчик WM_SYSCOMMAND написать

← →
Ренат (2002-07-15 10:21) [4]

Как в принципе ловить сообщения окну?

← →
MBo © (2002-07-15 10:25) [5]

делаешь метод формы
procedure WMCOMMAND(var M:TMessage); message WM_SYSCOMMAND;

← →
Ренат (2002-07-15 11:28) [6]

А как в этом обработчике пропускать все остальные события?
Например закрытие
Я так понимаю они уже не посылаются окну

← →
Andrey007 (2002-07-15 11:31) [7]

А событие OnDeactivate не подойдёт?

← →
Ренат (2002-07-15 11:33) [8]

Нет как пропускать все остальные события Или это невозможно?

← →
MBo © (2002-07-15 11:33) [9]

WM_SYSCOMMAND в хелпе посмотрел?

← →
Proton © (2002-07-15 20:33) [10]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
Procedure wndMinimize(var msg:tWMSYSCOMMAND); message WM_SYSCOMMAND;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

Procedure TForm1.wndMinimize(var msg:tWMSYSCOMMAND);
begin
if msg.CmdType = SC_MINIMIZE then exit;
inherited;
end;

end.

Требуется уточнение:

if msg.CmdType and $FFF0 = SC_MINIMIZE then...

← →
FLAME (2002-07-15 23:11) [12]

Пользуясь случаем, хотел бы задать вопрос.
Какое событие посылается приложению при нажатии мышью на его кнопку в панели задач? (в Win98, W2k это приводит к восстановлению/сворачиванию приложения). Очень похоже на WM_ACTIVATEAPP, но таких событий возникает несколько на одно нажатие мыши. Если да, то какие значения параметров должны быть при восстановлении, а какие при сворачивании окна?

>А как в этом обработчике пропускать все остальные события?
>Например закрытие

inherited это и делает

IF Msg.WParam=SC_MINIMISE then ... else inherited;

В TApplication есть события onMinimize и onRestore.
Пользуйтесь!!!

Событие окна Найти похожие ветки