Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Dmitry_04 © (2005-02-15 16:20:00)
Как поймать события на "Развернуть" и "свернуть в окно" форму?

begin...end (2005-02-18 14:31:00) [1]
> 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, с нужными параметрами.

Dmitry_04 (2005-02-18 14:16:00) [2]
Помогите плиз

Dmitry_04 (2005-02-17 20:03:00) [3]
а почему когда я программно меняю "WindowState", события эти не работают? and $FFF0я дописал...

Юрий Зотов (2005-02-16 10:10:00) [4]
> Dmitry_04 (15.02.05 18:42) [4]

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

Anatoly Podgoretsky (2005-02-15 19:34:00) [5]
Мужики ну чего вы стараетесь, он же ответы не читает, уже создал новую тему. http://www.delphimaster.ru/cgi-bin/forum.pl?id=1108479880&n=0

esu (2005-02-15 19:03:00) [6]
напиши, придет час и там вместо ноликов денть единичка появится и работать перестанет :)

Dmitry_04 (2005-02-15 18:43:00) [7]
работает хотел сказать...

Dmitry_04 (2005-02-15 18:42:00) [8]
Юрий Зотова у меня и без and $FFF0

Юрий Зотов (2005-02-15 18:27:00) [9]
Маленькая поправочка:
case a_Msg.CmdType and $FFF0of

Джинн (2005-02-15 16:47:00) [10]
кхм...
TForm1 ≡ TMyForm

Джинн (2005-02-15 16:42:00) [11]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »