Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Свертывание окна 


Alexm   (2002-01-16 12:52) [0]

Какое событие возникает при свертывание окна?
Как его перехватить?



Ally   (2002-01-16 15:22) [1]

Сообщение 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.

(Окошко получает это сообщение, когда юзверь выбирает пункт оконного меню (которое известно также как системное или меню управления окном) или когда он работает с системными кнопками
в правой части Caption Bar"a (свойство BorderIcons их описывает, по-моему) - типа Minimize, Maximize, etc.)

Объявлено следующим образом:
WM_SYSCOMMAND
uCmdType = wParam; // тип системной команды
xPos = LOWORD(lParam); // горизонтальная позиция
yPos = HIWORD(lParam); // вертикальная позиция


Отловить минимизацию можно так:


unit main
interface
...
TForm1 = class(TForm)
...
private
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND; // перехватчик сообщения WM_SYSCOMMAND
...
end;
...
implementation
...
procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
inherited;
case Msg.WParam of
SC_MINIMIZE: ShowMessage("Minimization Catched!!!");
end;
end;
...
end.


А можно и с помощью Application.OnMessage...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
1-8855            asdf                  2002-01-20 23:36  2002.02.04  
Как сделать так, чтобы один из Tabsheet-ов в pagecontrole стал disabled?


3-8756            alive                 2002-01-04 17:26  2002.02.04  
Долго происходит вызов информации по lookup .


3-8775            Georg                 2002-01-07 15:16  2002.02.04  
Заковырочка-запупырочка...


4-9023            Kirill_               2001-12-06 01:56  2002.02.04  
Соответствие типов


1-8951            Oleg Fomicheff        2002-01-18 13:18  2002.02.04  
RxLib TrayIcon: как убрать из Taskbar