TProgressBar – індикатор прогресу

ProgressBar1->Smooth=true; //неперервне відображення

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

ProgressBar1->Step=1; //крок приросту

ProgressBar1->Position++; //збільшити позицію на 1

ProgressBar1->StepBy(2); //збільшити позицію на 2

ProgressBar1->StepIt(); //збільшити позицію на значення кроку

TUpDown – спарені кнопки вверх-вниз, лічильник

UpDown1->Associate=Edit1; //пов’язане з UpDown1 поле Edit1

UpDown1->Wrap=true; //переносити при досягненні граничного значення

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

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

UpDown1->Increment=2; //приріст

int i=UpDown1->Position; //поточне значення

THotKey – клавіша гарячого виклику

Добавте на форму компоненти HotKey, ActionList та два компоненти Button. Створіть дію Action1. Запрограмуйте події OnExecute для Action1 та OnClick для Button1.

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

//присвоїти дії Action1 клавіші гарячого виклику

Action1->ShortCut=HotKey1->HotKey;

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

}

//при виконанні дії Action1

void __fastcall TForm1::Action1Execute(TObject *Sender)

//змінити гарячі клавіші на "Ctrl+O"

{HotKey1->HotKey=ShortCut(Word('O'), TShiftState() << ssCtrl);}

TAnimate – анімація відеозаписів

Animate1->Active=false; //не програвати кліп

Animate1->CommonAVI=aviFindComputer; //стандартний кліп avi

//програвати всі кадри нескінченно

Animate1->Play(Animate1->StartFrame,Animate1->StopFrame,0);

Sleep(1000); //зупинити виконання програми на 1 секунду

Animate1->Stop(); //зупинити програвання

Animate1->FileName="1.avi"; //завантажити файл 1.avi

//програвати всі кадри один раз

Animate1->Play(Animate1->StartFrame,Animate1->StopFrame,1);

Sleep(3000); //зупинити виконання програми на 3 секунди

Animate1->Seek(5); //показати п’ятий кадр

TDateTimePicker – вибір дати/часу, tDateTime – дата/час

DateTimePicker1->ShowCheckbox=true; //показувати індикатор

if(DateTimePicker1->Checked) //якщо індикатор вибрано

{

DateTimePicker1->Kind=dtkTime; //тип - час

DateTimePicker1->Time=Time(); //присвоїти поточний час

}

else //інакше

{

DateTimePicker1->Kind=dtkDate; //тип - дата

DateTimePicker1->Date=Date(); //присвоїти поточну дату

DateTimePicker1->DateFormat=dfLong; //формат дати

DateTimePicker1->DateMode=dmComboBox; //спосіб зміни дати

}

//присвоїти змінній DT значення властивості DateTime

TDateTime DT=DateTimePicker1->DateTime;

Edit1->Text=DT.DateString(); //вивести в поле Edit1 дату

Edit2->Text=DT.TimeString(); //вивести в поле Edit2 час

TMonthCalendar - календар, tDate - дата

TDate DMin=EncodeDate(2007,9,3); //присвоїти DMin вказану дату

TDate DMax=Date()+50; //присвоїти DMax поточну дату+50 днів

MonthCalendar1->MinDate=DMin; //встановити мінімальну дату

MonthCalendar1->MaxDate=DMax; //встановити максимальну дату

TDate D=MonthCalendar1->Date; //присвоїти D вибрану дату

unsigned short y,m,d; //рік, місяць і день

D.DecodeDate(&y,&m,&d); //декодувати дату

Edit1->Text=d; //вивести в поле день