TScreen – стан екрану

Height=Screen->Height;//висота форми=висоті екрану у пікселях

Memo1->Lines->Add(Height);

Width=Screen->Width;//ширина форми=ширині екрану у пікселях

Memo1->Lines->Add(Width);

//або

Screen->Forms[0]->Height=Screen->Height;

//або

Screen->ActiveForm->Height=Screen->Height;

Memo1->Lines->Add(Screen->Fonts->Strings[0]);//перший екранний шрифт

Screen->Cursor=crCross;//змінює курсор

Memo1->Lines->Add(Screen->ActiveControl->Name);//активний елемент керування

Memo1->Lines->Add(Screen->DesktopHeight);//висота робочого столу

Memo1->Lines->Add(Screen->WorkAreaHeight);//висота робочої зони

Set – шаблон класу множина

Set <int, 1, 10> S,S2;//множина S і S2 цілих від 1 до 10

S<<1<<2;//добавити в множину S 1,2

S2<<1<<2<<3<<4;//добавити в множину S2 1,2,3,4

S=S+S2;//множина S містить 1,2,3,4

S>>4;//видалити з множини 4

Caption="";

for (int i=1;i<=10;i++)

//якщо множина S мітить i то вивести його

if (S.Contains(i)) Caption=Caption+i;

S.Clear();//очистити множину

TList – список вказівників, tObject – базовий клас vcl

TList *List = new TList;//список

TClass C=Button1->ClassType();//тип об’єкту Button1

//в циклі від першого по останній компонент форми

for (int i=0;i<ComponentCount;i++)

{

List->Add((TObject *)Components[i]);//добавити у список компонент

TObject *obj=(TObject *)List->Items[i];//створити об’єкт obj з елементу списку

Memo1->Lines->Add(obj->ClassName());//вивести ім’я класу

//або так:

//TClass C2=obj->ClassType();

//Memo1->Lines->Add(C2->ClassName());

//якщо клас об’єкту obj успадкований від базового класу класу TButton

if (obj->InheritsFrom(C->ClassParent()))

//вивести ім’я базового класу об’єкту obj

Memo1->Lines->Add(obj->ClassParent()->ClassName());

}

TComponent – базовий клас компонентів, tControl – базовий клас візуальних компонентів

//створити компонент Btn, власник - форма Form1

TButton *Btn=new TButton(Form1);

Btn->Parent=Panel1;//батько - Panel1

//видалити компонент зі списку володіння (Components) Form1

Form1->RemoveComponent(Btn);

Panel1->InsertComponent(Btn);//добавити у список володіння Panel1

//в циклі від першого по останній компонент форми

for (int i=0;i<ComponentCount;i++)

{

Memo1->Lines->Add(Form1->Components[i]->ComponentIndex);//індекс компоненту

Memo1->Lines->Add(Form1->Components[i]->Name);//ім’я компоненту

//визначення стилю компонента csInheritable

if (Form1->Components[i]->ComponentStyle.Contains(csInheritable))

Memo1->Lines->Add("csInheritable");

Memo1->Lines->Add(Form1->Components[i]->Owner->Name);//ім’я власника

//якщо компонент має батька

if (Form1->Components[i]->HasParent())

Memo1->Lines->Add("HasParent");//вивести "HasParent"

TControl *C;//вказівник на елемент керування

//якщо можливе приведення компоненту до типу TControl

//(якщо компонент є елементом керування)

if (C=dynamic_cast<TControl *>(Components[i]))

{

C->Top=0;//змінити розташування

Memo1->Lines->Add(C->Parent->Name); //вивести ім’я батька

C->Hide();//зробити невидимим

//якщо невидимий то відобразити

if (C->Visible==false) C->Show();

C->Enabled=false;//зробити недоступним

}

}