Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.12.11;
Скачать: CL | DM;

Вниз

Как обработать нажатие на кнопку минимизации?   Найти похожие ветки 

 
demon ©   (2009-09-05 03:27) [0]

Как через api обработать нажатие в окне на кнопку минимизации? т.е. какое событие за это отвечает?..


 
KilkennyCat ©   (2009-09-05 03:38) [1]

http://msdn.microsoft.com/en-us/library/ms646360%28VS.85%29.aspx


 
Ruzzz   (2009-09-05 05:23) [2]

procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;

procedure TfrmMain.WMGetSysCommand(var Message: TMessage);
begin
 if (Message.WParam = SC_MINIMIZE) and FSettings.MinimizeToTray then
   Application.MainForm.Visible := False
 else if (Message.WParam = SC_CLOSE) and FSettings.CloseToTray then
   Application.MainForm.Visible := False
 else
 inherited;
end;


 
Юрий Зотов ©   (2009-09-05 17:26) [3]

> Ruzzz   (05.09.09 05:23) [2]

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 ...


 
demon ©   (2009-09-06 02:26) [4]

Что-то не получаеться сделать так как хотелось, а хотелось чтобы окно закрывалось вместо сворачивания...


 
Ruzzz   (2009-09-06 16:31) [5]

вместо
if (Message.WParam = SC_MINIMIZE) and FSettings.MinimizeToTray then
  Application.MainForm.Visible := False
написать
if (Message.WParam = SC_MINIMIZE) then Close;

Не проверял :) Попробуйте сами


 
Ruzzz   (2009-09-06 16:51) [6]

ах да if (Message.WParam and $FFF0 = SC_MINIMIZE) then Close;


 
clickmaker ©   (2009-09-08 16:27) [7]

> хотелось чтобы окно закрывалось вместо сворачивания

зачем?
оно в трэй что-ли сворачивается?


 
demon ©   (2009-09-12 05:18) [8]


> зачем?оно в трэй что-ли сворачивается?

Не совсем, но чтото вроде того. Оно сварачиваеться в меленькую панельку ну например как в аимпе ;)



Страницы: 1 вся ветка

Текущий архив: 2011.12.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
15-1313853077
RGV
2011-08-20 19:11
2011.12.11
HP pavilion dv6-6160er


15-1313561619
vrem
2011-08-17 10:13
2011.12.11
shadow copy - как?


2-1314555725
Mu
2011-08-28 22:22
2011.12.11
Функция и 2 массива.


15-1313785804
Юрий
2011-08-20 00:30
2011.12.11
С днем рождения ! 20 августа 2011 суббота


1-1276603042
AIV2104
2010-06-15 15:57
2011.12.11
DCPcrypt для Delphi 7 и 2009 не ставиться из-за rtl.bcp