Тестування компоненти дещо відрізняється від тестування повного додатку Delphi. Відмінність полягає в тому що компоненти мають 2 різні інтерфейси, які потребують перевірки. Якщо компонент використовується в додатку то його поведінку визначає інтерфейс часу виконання. Але якщо він розміщений на формі, то поведінка компоненти диктується його інтерфейсом часу проектування. Для тестування потрібно у тому каталозі,де розміщена створена компонента створити новий проект. Для тестування компоненти буде потрібна проста форма. Динамічне створення компоненти: добавити новий модуль компоненти в розділ uses модуля компоненти; добавити в клас форми поле,яке буде ссилкою на компоненту; створити компоненту в події OnCreate; встановити властивість компоненти – Parent; встановити відповідним чином додаткові властивості компоненти.
unit Mainform;
interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls,
UMyButton;
type
TForml = class(TForm)
procedure FormCreate(Sender: TObject);
public
BtnTest : TMyButton;
end;
var
Forml: TForml;
implementation
{$R *.DFM}
procedure TForml.FormCreate(Sender: TObject);
begin
BtnTest := TMyButton.Create( Self ) ;
BtnTest.Parent := Self;
BtnTest.Left := 100;
BtnTest.Top := 100;
BtnTest.Caption := 'MyButton';
end;
end.
