Минимизация формы

← →
Интересующийся (2007-03-06 15:19) [0]

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

В проекте существует форма которая минимизируется после запуска программы как положено, но после восстановления формы в нормальное состояние "минимизация" перестает выполняться. :(

← →
Юрий Зотов © (2007-03-06 16:34) [1]

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

Отловить WM_SYSCOMMAND с SC_MINIMIZE.

← →
Интересующийся (2007-03-06 17:07) [2]

Отловил WM_SYSCOMMAND, событие есть - минимизации нет :(???

← →
Интересующийся (2007-03-06 17:09) [3]

Как определить, форма минимизирована или в нормальном состоянии?

← →
Правильный Вася (2007-03-06 17:24) [4]

TForm.State

← →
Novice (2007-03-07 07:04) [5]

Интересующийся:

TForm1 = class(TForm)
...
private
...
protected
procedure WMGetSysCommand(var message : TMessage); message WM_SYSCOMMAND;
...
public
...
...
...

procedure TForm1.WMGetSysCommand(var message: TMessage);
begin
if (message.wParam = SC_MINIMIZE) then begin
//Ваши действия
end;
inherited;
//Эта строчка отвечает за то, чтобы событие произошло.
//не будет этой строчке - событие минимизации не произойдет.
end;

ну а также параметры - SC_CLOSE, SC_MAXIMIZE, SC_RESTORE.

← →
Интересующийся (2007-03-09 08:47) [6]

Спасибо за советы, но в обработке у меня примерно так и стояло...

У меня вопрос так решается:

Inherited;

If Message.WParam=SC_MINIMIZE Then
Begin
//Рабочий код
End;

А глюк с минимизацией я решил, он в другом месте был.
P.S.

Другая проблема возникла, с мень в SysTrey, но это уже вопрос не этой ветки...

← →
Интересующийся (2007-03-09 09:15) [7]

> А глюк с минимизацией я решил, он в другом месте был.

Вот решение, но с чем была связана проблема я непонял (возможно из-за вызова формы из DLL). В обычном приложении все нормально работало и так.

If Message.WParam=SC_MINIMIZE Then Begin WindowState:=wsMinimized; //Рабочий код End;

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

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

Минимизация формы Найти похожие ветки