TComboBox – випадаючий список рядків

ComboBox1->Text="5"; //текст

//добавити елемент з рядком ComboBox1->Text

ComboBox1->Items->Add(ComboBox1->Text);

TScrollBar – смуга прокручування

ScrollBar1->Kind=sbVertical;//тип смуги прокручування – вертикальна

ScrollBar1->Min=1;//мінімальне значення

ScrollBar1->Max=100;//максимальне значення

ScrollBar1->LargeChange=10;//великий крок

ScrollBar1->SmallChange=1;//малий крок

int i=ScrollBar1->Position;//позиція

Edit1->Text=i;

TPanel - панель

Динамічне створення і видалення компонентів

//функція-обробник події OnClick для Button1

void __fastcall TForm1::Button1Click(TObject *Sender)

{

TButton *Btn=new TButton(Panel1); //динамічно створити кнопку

Btn->Parent=Panel1; //власник кнопки - Panel1

//координати кнопки

Btn->Left=10;

Btn->Top=10;

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

Btn->OnClick=BtnClick; //функція-обробник події OnClick

}

//функція-обробник події OnClick об’єкту Btn

void __fastcall TForm1::BtnClick(TObject *Sender)

{

//показати діалогове вікно з надписом "Remove"

Application->MessageBoxA("Remove","",mbNone);

TControl *Btn=Panel1->Controls[0]; // Btn – перший об’єкт на Panel1

Panel1->RemoveControl(Btn); //видалити об’єкт Btn

}

4.5 Компоненти Additional tBitBtn – кнопка з піктограмою

BitBtn1->Kind=bkOK; //тип кнопки

BitBtn1->Glyph->LoadFromFile("1.bmp"); //рисунок на кнопці

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

Приклад використання технології Drag&Drop

//натиснута кнопка миші на BitBtn1

void __fastcall TForm1::BitBtn1MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

//якщо натиснута права кнопка, розпочати перетягування

if(Button==mbRight)BitBtn1->BeginDrag(false,5);

BitBtn1->BringToFront(); //винести на передній план

}

//відбувається перетягування над Panel1

void __fastcall TForm1::Panel1DragOver(TObject *Sender, TObject *Source,

int X, int Y, TDragState State, bool &Accept)

{

//вивести координати у надпис форми

Form1->Caption=IntToStr(X)+","+IntToStr(Y);

}

//завершено перетягування

void __fastcall TForm1::Panel1DragDrop(TObject *Sender, TObject *Source,

int X, int Y)

{

BitBtn1->Parent=Panel1; //власник BitBtn1 - Panel1

BitBtn1->Top=Y; //координати кнопки

BitBtn1->Left=X;

}

//натиснута кнопка BitBtn1

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

//вивести ім’я власника BitBtn1

Application->MessageBox(BitBtn1->Parent->Name.c_str(),"Parent",mbNone);

}

TSpeedButton – кнопка з піктограмою і фіксацією

SpeedButton1->Glyph->LoadFromFile("1.bmp"); //рисунок на кнопці

SpeedButton1->Caption="Ok"; //текст надпису на кнопці

TMaskEdit – поле редагування з шаблонами

MaskEdit1->Clear(); //очистити

MaskEdit1->Text="150797"; //текст до застосування маски

MaskEdit1->EditMask="!99/99/00;1"; //маска

String S=MaskEdit1->EditText;//текст після застосування маски

TStringGrid - таблиця

StringGrid1->ColCount=3; //кількість колонок

StringGrid1->RowCount=3; //кількість рядків

StringGrid1->Cells[0][1]="row1"; //текст в комірці Cells[0][1]

StringGrid1->Cells[1][0]="col1"; //текст в комірці Cells[1][0]

StringGrid1->Cells[1][1]=2; //текст в комірці Cells[1][1]

//дозвіл і заборона редагування вмісту комірок

StringGrid1->Options<<goEditing; //додаємо в множину goEditing

StringGrid1->Options>>goEditing; //видаляємо з множини goEditing

int c=StringGrid1->Col; //індекс колонки вибраної комірки

int r=StringGrid1->Row; //індекс рядка вибраної комірки

Edit1->Text=StringGrid1->Cells[c][r]; //помістити в поле вміст Cells[c][r]