Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
С++_навч_пос14_new.doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
1.86 Mб
Скачать

TLabel – мітка, надпис

Label1->AutoSize=false; //немає автоматичної зміни розмірів

Label1->Alignment=taRightJustify; //вирівнювання надпису

Label1->Font->Color=clRed; //колір шрифту

Label1->Font->Size=14; //розмір шрифту

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

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

Label1->Caption="Float "+FloatToStr(2.5); //текст надпису

TButton - кнопка

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

Button1->Hint="Button1"; //текст підказки

Button1->ShowHint=true; //показувати підказку

Button1->Top=100; //Y-координата верхнього лівого кута

Button1->Left=100; //X-координата верхнього лівого кута

Button1->Height=20; //висота

Button1->Width=30; //ширина

Створення єдиної функції-обробника події для всіх кнопок TButton

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

//вказати функцію-обробник події OnClick

Button1->OnClick=Button1Click;

Button2->OnClick=Button1Click;

Button3->OnClick=Button1Click;

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

static int i=1; //статична змінна

//створити вказівник на об’єкт, який викликав подію OnClick

TButton *Button=(TButton*)Sender;

Button->Caption=i++; //змінити надпис на кількість викликів

}

TRadioButton - перемикач

RadioButton1->Checked=true; //вибраний стан

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

RadioButton1->Enabled=false; //не доступний

TCheckBox - прапорець

if (CheckBox1->Checked==true) //якщо стан вибраний

{CheckBox1->Caption="true";} //змінити надпис на "true"

else //інакше

{CheckBox1->Caption="false";} //змінити надпис на "false"

CheckBox1->Checked=true; //вибраний стан

CheckBox1->State=cbGrayed; // “третій” стан

Присвоєння властивості Checked=true всім компонентам TCheckBox

//для всіх компонентів на формі

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

{

//створити вказівник типу TCheckBox* на даний компонент шляхом

//спроби динамічного перетворення типу

TCheckBox *CBox=dynamic_cast<TCheckBox*>(Components[i]);

if (CBox) CBox->Checked=true; //встановити вибраний стан

}

TEdit – поле редагування

Edit1->Text="Hello"; //текст у полі

Edit1->Text=2.1; //текст у полі

double x=StrToFloat(Edit1->Text); //перетворити текст у дійсне число

Edit1->Text=x;

char s[128]; //масив символів

strcpy(s,Edit1->Text.c_str()); //помістити текст у масив символів

Edit1->Text=s;

Edit1->PasswordChar='*'; //символ для вводу пароля

Edit1->Clear(); //очистити поле

TMemo – багаторядкове поле редагування

Memo1->Lines->Add("1"); //додати рядок "1"

Memo1->Lines->Strings[0]="2"; //змінити перший рядок на "2"

Memo1->Lines->Assign(ListBox1->Items); //установити рядки з ListBox1

Memo1->Lines->SaveToFile("Data.txt"); //зберегти рядки у файл

Memo1->Lines->LoadFromFile("Data.txt"); //читати рядки з файлу

//вивести весь текст Memo1 в діалоговому вікні MessageBoxA

Application->MessageBoxA(Memo1->Text.c_str(),"",mbNone);

TListBox – список рядків

//добавити елементи "1", "2", "3"

ListBox1->Items->DelimitedText="1,2,3";

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

ListBox1->Items->Add("1"); // добавити елемент "1",

ListBox1->Items->Add("2"); // добавити елемент "2",

char c[][10]={"1000","2000","3000"}; //масив символів

//додати елементи "1000", "2000", "3000"

for(int i=0;i<3;i++)ListBox1->Items->Add(c[i]);

ListBox1->Items->Insert(1,"3"); //помістити елемент "3" на друге місце

ListBox1->Items->Delete(1); //видалити другий елемент

int k= ListBox1->Items->Count; //кількість елементів

int i=ListBox1->ItemIndex; //індекс вибраного елементу

String s=ListBox1->Items->Strings[i]; //текст і-го елементу

Заповнення ListBox об’єктами

//добавити елемент з рядком Button1->Name і об’єктом Button1

ListBox1->Items->AddObject(Button1->Name,Button1);

//добавити елемент з рядком Button2->Name і об’єктом Button2

ListBox1->Items->AddObject(Button2->Name,Button2);

int i=ListBox1->ItemIndex; //індекс вибраного елементу

//створити вказівник типу TButton* на об’єкт з індексом і

TButton *b=(TButton*)(ListBox1->Items->Objects[i]);

b->Caption="Selected Button"; //змінити текст надпису