Система обробітку повідомлень в Delphi

Прикладному програмісту Delphi не потрібно турбуватися про вибірку повідомлень із черги і передачі їх відповідним процедурам вікон, тому що в підпрограмах компонентів і модулі Forms встроєний код який виконує обробіток повідомлень. Крім того Delphi, поміщує інформацію із типу TMsg в власний запис типу Tmessage:

Type

Tmessage = record

Msg:Cardinal;

Case Integer of

0:(

Wparam:Longint;

Lparam:Longint;

Result:Longint);

1:(

WparamLo:Word;

WparamHi:Word;

LparamLo:Word;

LparamHi:Word;

ResultLo:Word;

ResultHi:Word);

End;

Delphi бере частину обробітку інформації на себе, а в даний запис поміщується тільки та частина інформації, яка необхідна для подальшого обробітку.

В доповнення до загального запису в Delphi визначений набір спеціалізованих записів для всіх типів повідомлень Windows. Призначення цих записів складається в наданні програмісту всієї інформації яка міститься в повідомленнях Windows, але без необхідності розшифрування значень полів Wparam i Lparam. Опис всіх цих записів знаходиться в модулі Messages.

Приклад спеціалізованого запису, що використовується для більшості повідомлення Windows про події мишки.

Type

TWMMouse = record

Msg:Cardinal;

Keys:Logint;

Case Integer of

0:(

Xpos:Smallint;

Ypos:Smallint);

1:(

Pos:TsmallPoint;

Result:Longint);

End;

Всі типи записів для конкретних повідомлень про події миші визначаються рівними записами TWMouse:

TWMRButtonUp = TWMMouse;

TWMLButtonDown = TWMMouse;

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

-процедура повинна бути методом об’єкту.

-процедура повинна передавати один передаваємий по зсилці (за допомогою опису var) параметр з типом Tmessage або з типом будь – якого спеціалізованого повідомлення.

-опис процедури повинен містити ключове слово message за яким повинна йти константа, що задає тип оброблюваного повідомлення.

Приклад оголошення процедури, що обробляє повідомлення WM_PAINT:

Procedure WMPaint(var Msg:TWMPaint); message WM_PAINT;

Треба мати на увазі:

Ім’я процедури що обробляє повідомлення потрібно давати таке ж як ім’я оброблюваного ним повідомлення, але без символу підкреслення і з написанням перших знаків імені великими.

В якості приклада напишем просту процедуру обробітку повідомлення WM_PAINT, яка замість перемалювання повідомлення буде подавати звуковий сигнал.

Створюємо новий пустий проект. Добавляємо в вікні редактора заголовок для функції WMPaint, помістивши його в розділ private об’єкта Tform1:

Procedure WMPaint(var Msg:TWMPaint); message WM_PAINT;

Тапер в розділ Implementation модуля добавляється визначення процедури. В цьому випадку вказівка message не потрібна.

Procedure Tform1.WMPaint(var Msg:TWPaint);

Begin

Beep;

Inherited;

End;

На відміну від подій Delphi, оброблення повідомлень є обов’язковою і не може виконуватися чи не виконуватися по розсуду програміста. Звичайно якщо в програмі, оголошено про проведення власного обробітку повідомлення, система Windows чекає деяких визначених дій, що пов’язані з обробітком повідомлення. Майже завжди компоненти виконують більшу частину обробітку своїми силами, для доступу яких програмісту потрібно викликати обробітчик батьківського класу за допомогою директиви Inherited.

Загальна схема виглядає так: Дії які потрібні вашому додатку виконуються в вашій підпрограмі, а дії які очікує Windows виконуються при виклику методу inherited.

Але бувають випадки коли виклик методу inherited недостатній.

Можна також не використовувати даний метод взагалі, тоді звичайні дії пов’язані з повідомленням Windows ніколи не будуть виконуватися.(Натискання клавіші миші, мінімізація вікна і т.і.).

Потрібно звернути увагу що при обробці деяких повідомлень Windows очікує повернення деякого результату.

Аналогічно тому, як система Windows посилає свої повідомлення різним вікнам додатку, в самому додатку також може з’явитися необхідність обміну повідомлення між його вікнами і керуючими елементами. Delphi дає програмісту декілька способів здійснення обміну повідомлень в межах додатку.

Метод Perform().

Цим методом володіють всі нащадки класу Tcontrol, що входять в бібліотеку компонентів. Метод Perform() дозволяє послати повідомлення будь-якій формі або керуючому елементу, заданому іменем екземпляра даного об’єкта. Метод передає три параметри – саме повідомлення і відповідні йому параметри Lparam i Wparam. Визначення даного методу має вигляд.

Function Tcontrol.Perform(Msg: Cardinal; Wparam,Lparam:Longint): Longint;

Для посилання повідомлення формі або керуючому елементу використовується наступний синтаксис:

RetVal:=ControlName.Perform(MessageID, Wparam, Lparam);

Дата добавления: 2014-01-07