998_____________________________________________Глава 15

Пример

Операторы

Imagel->Canvas->Brush->Color = clBlack;

Imagel->Canvas->FrameRect(Rect(10,10,100,100)) ;

рисуют на канве компонента Imagel черную рамку.

Free

Вызывает деструктор объекта и освобождает память
Класс TObject

Прототип

_fastcall Free ();

Описание

Функцию Free не следует применять непосредственно для освобождения па-
мяти, динамически выделенной под объект, который уже не нужен для дальней-
шей работы программы. Вместо этого следует использовать ключевое слово delete,
по которому автоматически вызывается функция Free.

Функция Free проверяет, не была ли ранее уже освобождена выделенная под
объект память и вообще был ли данный объект создан (не равен ли указатель на
объект NULL). После этого вызывается деструктор данного объекта.

GetTabOrderLxst_____________________________________

Строит список дочерних оконных компонентов в последовательности табуля-
ции

Класс TWinControl

Определение

DYNAMIC void _fastcall GetTabOrderList(Classes::TList* List);

Описание

Метод GetTabOrderList 'строит список List типа TList дочерних оконных ком-
понентов в последовательности табуляции. В список входят не только непосредст-
венные потомки данного элемента, но и косвенные потомки, включенные в дочер-
ние контейнеры. При этом не обращается внимание на значение свойства Tab Stop
включаемых компонентов.

Метод GetTabOrderList вызывается методом FindNextControl. определяю-
щим последующий или предшествующий компонент в списке табуляции.

Пример

Приведенные ниже операторы опбеспечивают поочередный доступ ко всем до-
черним оконным компонентам в последовательности табуляции.

TWinControl *obj;

TList *List = new TList;

GetTabOrderList(List) ;

forfint i = 0; i < List->Count; i++)