Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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...



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

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

Наверх




Память: 0.44 MB
Время: 0.004 c
1-8922
Delphimun
2002-01-16 16:39
2002.02.04
Как изменить содержимое файла txt на своей web странице?


1-8891
Unholy()
2002-01-16 00:39
2002.02.04
Помогите найти следующие компоненты...


1-8874
Antoniz
2002-01-16 10:00
2002.02.04
Работа с потоками


14-8980
MJH
2001-12-11 15:27
2002.02.04
http://mjh.nm.ru


7-9008
Vitaliy Jungle
2001-10-13 05:42
2002.02.04
Гребаный MSDOS





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский