VPF::в место минимизе он делал что-то другое

Radon

Дата 11.10.2005, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 11.10.2005

Репутация: нет
Всего: нет

Как можно перехватить нажатия минимизе и модифицировать её команду
Типа: в место минимизе он делал что-то другое

~FoX~

Дата 11.10.2005, 16:07 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код


protected
  Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;

Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
  IF Msg.WParam=SC_MINIMIZE then
    Begin
        //-Делаем че надобно....
    End
  else
    inherited;
End;

Только сей метод не работает при Win+D.

Это сообщение отредактировал(а) ~FoX~ - 11.10.2005, 16:09

--------------------

…множественность никогда не следует полагать без необходимости…

Radon

Дата 11.10.2005, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 11.10.2005

Репутация: нет
Всего: нет

Сейчас попробую...Но серовно спосибо smile

Albinos_x

Дата 11.10.2005, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Код

...
private
    { Private declarations }
   procedure WMSys(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
.....
procedure TForm1.WMSys(var Msg: TWMSysCommand);
begin
case Msg.CmdType of
   SC_MINIMIZE : ShowMessage('Hello!!')
   else    
       inherited;   // эта команда вызывает стандартный обработчик события
end;
...

этот метод точно должен работать, есть ещё способы...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »