Главная » Delphi » Определение класса TCollection: компонент TRunButtons

0

Следующим  шагом  будет  определение  объекта,  обслуживающего список   компо нентов TRunBtnItem. Как уже говорилось, этот  объект должен  быть потомком класса TCollection. Назовем этот класс TRunButtons. Ниже  следует его определение.

type

TRunButtons = class(TCollection)

private

// Хранит указатель на TddgLaunchPad

FLaunchPad: TddgLaunchPad;

function GetItem(Index: Integer): TRunBtnItem;

procedure SetItem(Index: Integer; Value: TRunBtnItem);

protected

procedure Update(Item: TCollectionItem); override;

public

constructor Create(LaunchPad: TddgLaunchPad);

function Add: TRunBtnItem;

procedure UpdateRunButtons;

property Items[Index: Integer]: TRunBtnItem read GetItem

write SetItem; default;

end;

Класс  TRunButtons связывает себя  с компонентом TddgLaunchPad, который бу дет рассмотрен чуть ниже.  Это  происходит в конструкторе Create(), который, как можно  заметить, принимает компонент TddgLaunchPad в качестве параметра. Обра тите  внимание на различные свойства и методы, добавление которых позволило ком поненту  манипулировать отдельными классами  TRunBtnItem, в частности свойством Items, представляющим собой массив для списка компонентов TRunBtnItem.

Использование классов TRunBtnItem и TRunButtons станет более понятным по

сле рассмотрения реализации компонента TddgLaunchPad.

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

По теме:

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