TStatusBar – рядок стану

//конструктор форми

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

Form1->Cursor=crCross; //змінити вид курсору

StatusBar1->Panels->Add(); //добавити панель

StatusBar1->Panels->Add(); //добавити панель

}

//при переміщенні курсору миші над формою

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

//X,Y – координати курсору

StatusBar1->Panels->Items[0]->Text=IntToStr(X); //змінити текст на X

StatusBar1->Panels->Items[1]->Text=IntToStr(Y); //змінити текст на Y

StatusBar2->SimpleText=IntToStr(X)+","+IntToStr(Y); //змінити текст на X,Y

}

TToolBar – панель інструментів

Для створення панелі інструментів ToolBar на етапі проектування і зв’язування її елементів керування з головним меню виконайте дії:

1 Помістіть на форму компоненти: MainMenu1, ActionList1, ImageList1, ToolBar1.

2 Створіть пункти меню MainMenu1.

3 Створіть дії ActionList1 і функції-обробники подій OnExecute.

4 Добавте рисунки в ImageList1.

5 Добавте кнопки в ToolBar1.

6 Змініть властивість Images компонентів ActionList1 і ToolBar1 на ImageList1.

8 Змініть властивість ImageIndex компонента Action1 на 0.

9 Змініть властивість Action одного пункта MainMenu1 на Action1.

10 Змініть властивість Action однієї кнопки ToolBar1 на Action1.

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

1 Добавте на форму компонент ActionList1 і добавте дію Action1.

2 Створіть для неї обробник події OnExecute.

3 Добавте в модуль директиву: #include <comctrls.hpp> і код:

//при створенні форми

void __fastcall TForm1::FormCreate(TObject *Sender)

{

//створити контрольну панель Bar1

TControlBar *Bar1= new TControlBar(Form1);

Bar1->Parent=Form1; //батьківський компонент - форма

Bar1->Left=0; //координата Left

Bar1->Width=Form1->Width; //ширина дорівнює ширині форми

//створити панель інструментів Bar2

TToolBar *Bar2= new TToolBar(Bar1);

Bar2->Parent=Bar1; //батьківський компонент - Bar1

Bar2->Left=0; //координата Left

Bar2->ShowCaptions = True; //показувати надписи

Bar2->Height = 40; //висота

//створити кнопку Button

TToolButton *Button = new TToolButton(Bar2);

Button->Parent = Bar2; //батьківський компонент – Bar2

Button->Action=Action1; //пов’язати з дією Action1

}

//відбулась дія Action1

void __fastcall TForm1::Action1Execute(TObject *Sender)

//вивести повідомлення "Execute"

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

TCoolBar – панель зі шторками

//створити панель зі шторками

TCoolBar *CoolBar = new TCoolBar(this);

CoolBar->Parent = this; //батьківський компонент

CoolBar->Align = alTop; //вирівнювання

CoolBar->Bands->Add(); //добавити смугу

CoolBar->Bands->Items[0]->Text ="Band"; //змінити надпис першої смуги

TButton *Button = new TButton(CoolBar); //створити кнопку

Button->Caption="Button"; //надпис на кнопці

Button->Parent=CoolBar; //батьківський компонент - CoolBar

CoolBar->Bands->Items[0]->Control=Button; //компонент що належить до смуги - Button

TPageScroller – панель з прокручуванням

1 Помістіть на форму компоненти Panel1 і PageScroller1.

2 На панелі Panel1 розмістіть довільну кількість інших компонентів.

3 Змініть властивість Control компонента PageScroller1 на Panel1.