ЯК написати компонент :: Веб-програмування

Відкрита середовище програмування Delphi заснована на використанні різних компонентів. Компонент являє собою код, який виконує яку-небудь вузькоспрямовану завдання за допомогою властивостей, подій і процедур. При створенні компонента необхідно задавати значення змінних і реалізувати код обробників подій. Для використання в програмі новий компонент повинен бути включений в пакет проекту.

Вам знадобиться

Середовище розробки Delphi.

Інструкція

Виберіть тип створюваного компонента. Він може бути об'єктом 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 - в новий. Натисніть кнопку Ок і підтвердіть запит додатки на перезапис пакета (при необхідності). Після чого написаний компонент буде готовий до використання.