Главная » Delphi » Проверка компонента TddgMarquee

0

Хотя  компонент уже практически написан и находится на стадии  тестирования, охладите свой пыл и пока не устанавливайте его в палитру  компонентов. Сначала  его следует отладить. Необходимо выполнить полную предварительную проверку компо нента, разработав специальный проект, создающий и использующий  динамический экземпляр нового компонента. В листинге 12.3 содержится код главного модуля про екта TestMarq, предназначенного для проверки компонента TddgMarquee. Этот простой проект состоит из формы с двумя кнопками.

Листинг 12.3. TestU.pas — проверка  компонента TddgMarquee

unit Testu; interface uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,

Controls, Forms, Dialogs, Marquee, StdCtrls, ExtCtrls;

typeTForm1 = class(TForm) Button1: TButton; Button2: TButton;

procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);

private

Marquee1: TddgMarquee;

procedure MDone(Sender: TObject);

public

{ Открытые объявления }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MDone(Sender: TObject);

begin

Beep;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Marquee1 := TddgMarquee.Create(Self);

with Marquee1 do begin

Parent := Self;

Top := 10;

Left := 10;

Height := 200;

Width := 150;

OnDone := MDone;

Show;

with Items do begin

Add(‘Greg’);

Add(‘Peter’);

Add(‘Bobby’);

Add(‘Marsha’);

Add(‘Jan’);

Add(‘Cindy’);

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Marquee1.Active := True;

end;

procedure TForm1.Button2Click(Sender: TObject);begin

Marquee1.Active := False;

end;

end.CОВЕТ

Всегда создавайте пробные проекты для всех новых компонентов. Никогда не пытай- тесь выполнить входной контроль компонента, добавив его в палитру компонентов. Отлаживая компонент, находящийся в палитре, можно не только потерять много вре- мени на бесполезную перекомпоновку пакета, но и, возможно, столкнуться с зависани- ем интегрированной среды разработки Delphi из-за ошибки в новом компоненте.

Только  после  устранения всех ошибок  в новом  компоненте его можно  добавить в палитру  компонентов. Как  уже было  сказано, это  довольно просто: достаточно вы брать  в меню Component пункт Install Component, а затем ввести  имена  модуля и паке та в раскрывшемся диалоговом окне  Install Component. Щелкните на кнопке OK —  и Delphi  перекомпонует тот пакет,  в который помещается новый компонент, и обновит вид палитры компонентов. Конечно, для того чтобы  новой компонент мог оказаться в палитре компонентов, ему потребуется процедура Register(). Компонент TddgMarquee регистрируется в модуле DDGReg.pas пакета  DDGDsgn, который нахо дится на прилагаемом компакт диске.

Источник: Тейксейра, Стив, Пачеко, Ксавье.   Borland Delphi 6. Руководство разработчика. : Пер.  с англ. — М. : Издательский дом “Вильямс”, 2002. —  1120 с. : ил. — Парал. тит. англ.

По теме:

  • Комментарии