="justify"> TShape = class (TGraphicControl)
private: TPen; PenChanged (Sender: TObject); Create (Owner: TComponent); override; Destroy; override;
...;
// Опис конструктора Create класу TShapeTShape.Create (Owner: TComponent);
inherited Create (Owner);// Ініціалізація успадкованих частин
Width: = 65;// Зміна успадкованих властивостей
Height: = 65;
FPen: = TPen.Create;// Ініціалізація нових полів
FPen.OnChange: = PenChanged;
end;
У конструкторі класу-нащадка спочатку викликається конструктор батька, а потім виконуються інші дії. У класі-нащадку директива override (перевизначити) забезпечує можливість батьківського класу використовувати новий метод. Ключове слово inherited служить для виклику методів батьківського класу. br/>
Повідомлення і події
В основі операційної системи Windows лежить використання механізму повідомлень, які "документують" всі вироблені дії, наприклад, натискання клавіші, пересування миші або цокання таймера. Додаток отримує повідомлення у вигляді запису заданого типу, що визначається як:
type = ^ TMsg; = packed record
hwnd: HWND;: UINT;: WPARAM; : LPARAM;: DWORD;: TPoint
end;
Поля цього запису містять наступну інформацію:
J hwnd - дескриптор керуючого елемента, якому призначено повідомлення;
J message - код повідомлення;
J wParam і lParam - додаткова інформація про повідомлення;
J time - час обробки повідомлення Windows;
J pt - координати покажчика миші під час генерації повідомлення.
Система Delphi перетворює повідомлення в свій формат, для якого використовується запис наступного типу:
PMessage = ^ TMessage; = record: Cardinal; Integer of
: (: Longint;: Longint;: Longint);
: (: Word;: Word;: Word;: Word;: Word;: Word);;
Типи Msg, TMessage, а також константи, що використовуються при посилці повідомлень, описані у файлах Windows.pas і Message.pas.
Для обробки повідомлень, що посилаються ядром Windows і різними додатками, використовуються спеціальні методи, описувані за допомогою модифікатора Message, після якого вказується ідентифікатор повідомлення. Метод обробки повідомлення обов'я...
