Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Перехват сообщения приложению [D5, WinME, WinXP]


Керик ©   (2002-03-31 07:48:00) 

Подскажите, плиззз, как перехватить сообщение о минимизации приложенияи отменить его действие (минимизацию).


Song   (2002-04-02 16:24:00) [1]

Ok, да это лазейка. Тогда сделай как тебе предложил Dimaond Cat © (01.04.02 23:13)


Керик   (2002-04-02 16:04:00) [2]

Song ©! Это не получается, так как мне необходимо запретить свёртывание, когда пользователь выберет отображение моей программы на таскбаре, щёлкнит по нему правой кнопкой мыши и выберет "Свернуть", либо один раз нажмёт левой кнопкой по отображению.


Song   (2002-04-02 09:00:00) [3]

2Dimaond Cat © (01.04.02 23:13)
Ну, естесно, я не имел ввиду что канвас что-то куда-то посылает :))
Но вот скажите мне для текущей задачи какая разница: определить процедуру отлова минимизации под классом TForm1 или переопределять TApplication.OnMinimize?


Dimaond Cat   (2002-04-01 23:13:00) [4]

2 Song ©окно ничего никуда не посылает (это рисунок) но его обработчик сообщений это другое дело :о)
2 Керикapplication.onminimize


Song   (2002-04-01 11:33:00) [5]

Прикольный ты парень. Ты думаешь, если окно минимизируется, то TApplication остаётся на экране и строит тебе глазки?
А по-твоему окно куда посылает сообщение о минимизации?


Керик   (2002-04-01 11:12:00) [6]

Я же просил отловить минимизацию объекта TApplication, а не окна!


Song   (2002-03-31 16:40:00) [7]

Но лучше всё-таки, я думаю, просто сделать эту кнопку неактивной.


Song   (2002-03-31 16:37:00) [8]


Procedure IsApplicationMinimize(Var Msg:TMessage); message WM_SYSCOMMAND;

...

Procedure TForm1.IsApplicationMinimize(Var Msg:TMessage);
Begin
With Msg Do IF wParam=SC_MINIMIZE then Result:=1 else inherited;
End;


Керик   (2002-03-31 15:57:00) [9]

Song ©! Если можно, покажи пример!


Song   (2002-03-31 10:40:00) [10]

Перехватывай WM_SYSCOMMAND c wParam=SC_MINIMIZE, а после возвращай Message.Result:=1


Наверх

Титульная страница Поиск, карта сайта Написать письмо