Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 7
Всего онлайн: 7
Зарегистрировано юзеров: 7805
Комментариев на сайте: 681
Новый юзер: Аdult onlinе dating



Последние комментарии
c
Arthurneime прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[img]https://sun9-66.userapi.com/c857220/v857220344/115e0/ySGY2CstZbw.jpg[/img] [b]Секс и здоровье[/b] =!!= Секс и здоровье : причинно-следственная связь =!!= Понижение потенции: есть ли повод для паники? =!!= Половой акт: квинтэссенция чувств и жизненных сил =!!= Продление полового акта: забег на длинную дистанцию =!!= Продление эрекции: выше, больше, сильнее [b]Секс и здоровье мужчины: причинно-следственная связь [/b] В ходе многочисленных экспериментов ученые установили, что главной причиной ранней смертности мужчин (а средняя продолжительность жизни мужской части населения в России составляет всего 59 ле&#1090 является безответственное отношение к своему сексуальному здоровью. При первых сбоях в работе половой системы мужчины подвергаются стрессу, выходят из состояния психического равновесия. В 80% случаев сексуальная нереализованность выливается в тяжелые депрессивные состояния, неврозы, проявления неконтролируемой агрессии. Этому есть вполне логичное объяснение с точки зрения физиологии. Дело в том, что мужской гормон тестостерон, который является важнейшим фактором в работе сердца, почек, печени, нервной системы, способен вырабатываться лишь в процессе половой близости. Мужчина с пошатнувшимся сексуальным здоровьем часто начинает ощущать общее недомогание, становится раздражительным, несобранным, агрессивным и чрезмерно эмоциональным. А это уже прямо ведет к тому, что человеку не хватает сил для самореализации, которая для мужчин имеет приоритетное значение в жизни. [b]Получается очень мрачная картина, напоминающая замкнутый круг.[/b] Как выйти из него, как решить проблемы? На многие возникающие интимные вопросы вы сможете найти ответы посетив рекомендуемые ниже ресурсы. Источник: http://porntube24.online/2020/04/08/aletta-ocean-backstage-fucking-big-cock/ ================== [url=https://bit.ly/2KhYaIy]Знакомства 18+[/url] [url=https://bit.ly/2y2MVRE]Казино для Ценителей.[/url] [url=https://bit.ly/2KgSJcE]18+ Секс -чат[/url] https://www.youtube.com/watch?v=32ClBPbPuGE [youtube]wcgT7YcqPg0[/youtube]
EleoPhync прокомментировал "Урок 18 - Знакомство с компонентами (часть 9/13)":
Viagra Pas De La Case [url=https://buyciallisonline.com/#]Buy Cialis[/url] Kamagra Jelly Usa <a href=https://buyciallisonline.com/#>Buy Cialis</a> Acquistare Cialis Tadalafil

Как обрабатывать сообщения

Обработка сообщений означает, что приложение будет тем или иным образом реагировать на полученные от операционной системы сообщения. В стандартном приложении Windows обработка сообщений сосредотачивается в процедурах окна. Delphi, частично обрабатывая сообщения, упрощает работу программиста, позволяя вместо одной процедуры для обработки всех типов сообщений создавать независимые процедуры для обработки сообщений различных типов. Все процедуры обработки сообщений должны отвечать следующим требованиям:

* Процедура должна быть методом объекта
* Процедуре должен передаваться один передаваемый по ссылке параметр, т.е. с помощью описания var. Тип параметра должен быть TMessage или другой, зависящий от типа специализированного сообщения
* Описание процедуры должно включать ключевое слово message, за которым должна следовать константа, задающая тип обрабатываемого сообщения


Вот пример объявления процедуры, обрабатывающей сообщение WM_Paint

procedure WMPaint(var Msg: TWMPaint); message wm_Paint;
[соглашение по присвоению имён требует присваивать обработчику сообщения то же имя, что и имя обрабатываемого сообщения, но без символа подчёркивания и указанием первым знаков имени прописными буквами]

В качестве примера напишем процедуру обработки сообщения WM_Paint, которая вместо перерисовки будет выдавать звуковой сигнал:

Для этого сначала нужно объявить процедуру в частных объявлениях (в области Private объекта TForm1):
procedure WMPaint(var Msg: TWMPaint); message wm_Paint;
Теперь в разделе implementation модуля добавляем определение процедуры (в этом случае указание ключевого слова message не требуется):
procedure TForm1.WMPaint(var Msg: TWMPaint); 
begin 
beep; 
inherited; 
end;
Обратите внимание на ключевое слово inherited, которое позволяет передать сообщение обработчику этого сообщения, принадлежащему классу-предку, т.е. если бы мы в нашем случае не указали бы это слово, перерисовка окна не осуществлялась бы, а выполнялось бы только только то, что было описано в области реализации нашего приложения, т.е. только бы подавался звуковой сигнал.
ExecAndWait( 'C:windowscalc.exe', '', SH_SHOWNORMAL) 

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 2 Февраля 2014
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.