TApplicationEvents – перехоплювач подій додатку

int i,j=0;

//при простоюванні

void __fastcall TForm1::ApplicationEvents1Idle(TObject *Sender, bool &Done)

{Application->Title=IntToStr(i++)+" "+IntToStr(j);}

//при активізації

void __fastcall TForm1::ApplicationEvents1Activate(TObject *Sender)

{Application->MessageBox("Activate","",0);}

//при мінімізації

void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)

{Application->MessageBox("Minimize","",0);}

//при отриманні повідомлення Windows

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,

bool &Handled)

{j++;}

TValueListEditor – компонент редагування списків, які містять пару ім’я/значення

int r;

//при натиску на кнопку Button1

void __fastcall TForm1::Button1Click(TObject *Sender)

{

ValueListEditor1->InsertRow("I","1",true); //вставити рядок

ValueListEditor1->InsertRow("II","2",true); //вставити рядок

ValueListEditor1->InsertRow("III","3",true); //вставити рядок

//стиль редагування першого значення - простий

ValueListEditor1->ItemProps[0]->EditStyle=esSimple;

//стиль редагування другого значення - список

ValueListEditor1->ItemProps[1]->EditStyle=esPickList;

//додати елементи в список

ValueListEditor1->ItemProps[1]->PickList->Add("1");

ValueListEditor1->ItemProps[1]->PickList->Add("2");

//стиль редагування третього значення – через діалогове вікно

ValueListEditor1->ItemProps[2]->EditStyle=esEllipsis;

//вивести текст третього ключа

Edit1->Text=ValueListEditor1->Keys[2];

//вивести текст значення з ключем "II"

Edit2->Text=ValueListEditor1->Values["II"];

}

//натиснута кнопка для редагування третього значення

void __fastcall TForm1::ValueListEditor1EditButtonClick(TObject *Sender)

{

//якщо вибрано третій рядок змінити текст значення з ключем "III" за допомогою діалогового вікна

if(r==3)ValueListEditor1->Values["III"]=InputBox("","","");

}

//вибрана комірка

void __fastcall TForm1::ValueListEditor1SelectCell(TObject *Sender,

int ACol, int ARow, bool &CanSelect)

{

r=ARow; //присвоїти номер вибраного рядка

}

TLabeledEdit – поле редагування з надписом

LabeledEdit1->EditLabel->Caption="Hello"; //текст надпису

LabeledEdit1->LabelPosition=lpLeft; //розміщення надпису

LabeledEdit1->Text="User"; //текст

TColorBox – вікно вибору кольору, tColor - колір

ColorBox1->Style<<cbCustomColor; //стиль вікна вибору кольору

Form1->Color=ColorBox1->Selected; //колір форми змінити на вибраний колір

TChart - діаграма

Добавляємо на форму компонент Chart і викликаємо редактор діаграми Edit Chart... В редакторі діаграм добавляємо дві серії типу Line. В конструктор форми вставляємо код:

Chart1->Title->Text->Clear(); //очистити надпис назви діаграми

Chart1->Title->Text->Add("My Chart"); //змінити текст надпису назви

Chart1->BottomAxis->Title->Caption="X"; //текст надпису осі X

Chart1->LeftAxis->Title->Caption="Y"; //текст надпису осі Y

Series1->Clear(); //очистити серію 1

Series1->Title="x^2"; //надпис серії 1

Series2->Clear(); //очистити серію 2

Series2->Title="x^3"; //надпис серії 2

//добавити дані (X, Y) в серії 1 і 2

for (float x=0; x<5;x+=0.1)

{

Series1->AddXY(x,x*x,"",clRed);

Series2->AddXY(x,x*x*x,"",clBlue);

}

//змінити всі значення X серії 1 на 1

for (int i=0; i<Series1->Count();i++)

{

Series1->XValues->Value[i]=1;

}