Как отловить минимизирование формы ?

← →
Блондинка (2004-04-13 13:25) [0]

Тупой сабж .. но надо !

← →
RDen (2004-04-13 13:43) [1]

type
TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);
procedure AppMinimize(Sender: TObject);

..............

var
Form1: TForm1;
var i:integer;

.............
procedure TForm1.AppMinimize(Sender: TObject);
begin
i:=i+1;
Application.Minimize;
form1.caption:="Приложение было свёрнуто "+inttostr(i) +" раз";
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
Application.OnMinimize := AppMinimize;
end;

← →
Семен Сорокин © (2004-04-13 14:03) [2]

Блондинка (13.04.04 13:25)
надо обработать сообщение WM_SYSCOMMAND + SC_MINIMIZE

← →
Блондинка (2004-04-13 14:06) [3]

Возможно Вы меня неправильно поняли .. мне нужно минимизировать весь проект когда минимизируется одна из форм.
допутси есть всего две форма form1 и form2 когда я минимизирую 2-ю форму она в левый нижний угол сворачивается а 1-я форма активная становится .. а мне надо перехватить нажатие коноки минимизации формы в правом верхнем углу (где еще закрыть) и свернуть все приложение на панель задач

← →
Блондинка (2004-04-13 14:07) [4]

> Семен Сорокин © (13.04.04 14:03) [2]

это как ?

← →
Гаврила (2004-04-13 14:11) [5]

>>Блондинка (13.04.04 14:07) [4]

A window receives this message when the user chooses a command from the window menu (also known as the System menu or Control menu) or when the user chooses the Maximize button or Minimize button.

← →
Блондинка (2004-04-13 14:16) [6]

в тексте будет выглядеть

← →
Семен Сорокин © (2004-04-13 14:20) [7]

Блондинка (13.04.04 14:06) [3]
сделай одного предка для своих форм, а в него добавь:
type TMyForm = class(TForm); private procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND; end; procedure TMyForm.WMSysCommand(var Msg: TMessage); begin if Msg.WParam = SC_MINIMIZE then Application.Minimize end;

← →
Семен Сорокин © (2004-04-13 14:24) [8]

Семен Сорокин © (13.04.04 14:20) [7]
про inherited забыл в обработчике.

← →
Блондинка (2004-04-13 14:34) [9]

> Семен Сорокин © (13.04.04 14:20) [7]
> про inherited забыл в обработчике.

куда его надо запихнуть ?

Блондинка (13.04.04 14:34) [9]
куда его надо запихнуть ?
можно попробовать сюда
:))
procedure TMyForm.WMSysCommand(var Msg: TMessage); begin if Msg.WParam = SC_MINIMIZE then Application.Minimize; inherited end;

← →
Брюнет (2004-04-13 14:38) [11]

← →
Блондинка (2004-04-13 14:41) [12]

>Блондинка (13.04.04 13:25)

Не только сабж.

Как отловить минимизирование формы ? Найти похожие ветки