Як написати компонент

Виберіть тип створюваного компонента. Він може бути об`єктом Windows-елемента, графічного елементу, елемента управління або невізуальних компонента. Також ваш об`єкт може бути спадкоємцем будь-якого вже існуючого класу. Визначтеся з функціями, реалізацію яких ви призначите компоненту.

Запустіть середу розробки Delphi. В основному меню програми відкрийте пункти Component, New Component. У діалоговому вікні в полі Ancestor Type виберіть клас компонента, який ви хочете модифікувати. Якщо ви не використовуєте спадкування, в поле Class Name просто введіть ім`я нового компонента, що починається на букву "T". В поле Palette Page напишіть ім`я закладки компонента після установки, далі натисніть кнопку Create Unit. Автоматично середовище розробки згенерує шаблон нового компонента. Приклад формованого коду на мові Pascal:

unit MyBtn;
interface
uses
Windows, SysUtils, Messages, Classes, Controls, Graphics, Forms, StdCtrls, Dialogs;

type
TMyBtn = class (TButton)
private
protected
public
published
end;

procedure Register;
implementation

procedure Register;
begin
RegisterComponents ( `MyComponents`, [TMyBtn]);
end;
end.

При цьому сформований не тільки новий клас TMyBtn на основі стандартного класу кнопки TButton, але також описана процедура реєстрації нового компонента в палітрі компонентів.

Опишіть в директиві private все поля, процедури і функції, які вам потрібні для створення компонента, причому вони будуть мати статус прихованих. Вкажіть ім`я поля (з букви "F"), Його тип. Наприклад, запис виду FDatas: integer описує змінну FDatas целочисленного типу. У розділі protected перерахуйте необхідні вам обробники подій, наприклад від натискання клавіш клавіатури або миші. Причому при спадкуванні класу необхідно ставити ключове слово override - для перекривання батьківського обробника стандартного події. Так, запис procedure Click- override забезпечує перехоплення кліка по кнопці.

Доступні користувачеві функції і процедури компонента описуються в директивах рublic і рublished, наприклад, за допомогою запису виду: function TSysInfo.GetUser: string або property MachName: string. В останній директиві при використанні слова property можна вказати властивості, які будуть доступні в інспектора об`єктів.

Напишіть сам код функціонування компонента в оголошених процедурах і функціях. Приклад коду обробника:
function MachName: string;
var
р: integer;
з: PChar;
begin
з: = stralloc (р);
end;
end.

Встановіть компонент в потрібний вам проект. У головному меню середовища Delphi виберіть пункти Component, Install Component. У діалоговому вікні відкрийте одну з закладок: Into exsisting Package, якщо хочете встановити компонент в існуючий пакет, або Into new Package - в новий. Натисніть кнопку Ок і підтвердіть запит додатки на перезапис пакета (при необхідності). Після чого написаний компонент буде готовий до використання.