Лабораторная работа № 1

Самостоятельная работа № 5.

Изменение цвета формы.

Тема: Работа с формой.

Цель: Научить работать с формой, компонентами и свойствами.

Напишите программу, в которой по нажатию кнопки с надписью на ней, определённого цвета н-пр: красный, будет изменятся цвет формы. Пример действующего окна программы приведён на рис. 1.

Рис. 1.

Рабочее окно

Button1, 2, 3 в свойствах, прописываете в Caption- красный, синий, чёрный

каждую кнопку отдельно, затем кликнете 2 раза по выбранной вами кнопке и в кодовом окне пропишите её, код программы приведен.

Код программы:

class TForm1 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TButton *Button2;

TButton *Button3;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Button3Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form1->Color=clRed;

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form1->Color=clBlue;

}

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form1->Color=clBlack;

}