События на "Развернуть" и "свернуть в окно" форму

← →
Dmitry_04 (2005-02-15 16:20) [0]

Как поймать события на "Развернуть" и "свернуть в окно" форму?

← →
Джинн (2005-02-15 16:42) [1]

type
TMyForm = class(TForm)
private
procedure WMSysCommand(var a_Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;

implementation

procedure TForm1.WMSysCommand(var a_Msg: TWMSysCommand);
begin
inherited;
case a_Msg.CmdType of
SC_MAXIMIZE: {action on maximize};
SC_MINIMIZE: {action on minimize};
SC_RESTORE: {action on restore};
end;
end;

← →
Джинн (2005-02-15 16:47) [2]

кхм...
TForm1 ≡ TMyForm

← →
Юрий Зотов © (2005-02-15 18:27) [3]

Маленькая поправочка:
case a_Msg.CmdType and $FFF0 of

← →
Dmitry_04 (2005-02-15 18:42) [4]

Юрий Зотов а у меня и без and $FFF0

← →
Dmitry_04 (2005-02-15 18:43) [5]

работает хотел сказать...

← →
esu © (2005-02-15 19:03) [6]

напиши, придет час и там вместо ноликов денть единичка появится и работать перестанет :)

← →
Anatoly Podgoretsky © (2005-02-15 19:34) [7]

Мужики ну чего вы стараетесь, он же ответы не читает, уже создал новую тему. http://delphimaster.net/view/1-1108479880/

← →
Юрий Зотов © (2005-02-16 10:10) [8]

> Dmitry_04 (15.02.05 18:42) [4]

До поры, до времени - работает. Но в любую секунду может и не сработать.

← →
Dmitry_04 (2005-02-17 20:03) [9]

а почему когда я программно меняю "WindowState", события эти не работают? and $FFF0 я дописал...

← →
Dmitry_04 (2005-02-18 14:16) [10]

Помогите плиз

> Dmitry_04 (17.02.05 20:03) [9]

А почему эти события должны обрабатываться, если окно не получает сообщения WM_SYSCOMMAND?

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.

Хотите, чтобы при программном изменении состояния окна эти события обрабатывались - значит, не используйте свойство WindowState, а посылайте соответствующее сообщение, т.е. WM_SYSCOMMAND, с нужными параметрами.

События на "Развернуть" и "свернуть в окно" форму Найти похожие ветки