Лабораторна робота №2

Тема: Практичне застосування редакторів символьної інформації, списків, перемикачів.

Мета: Навчитися вводити в програму символьну інформацію різного призначення та використовувати списки та перемикачі.

Лістинг програми:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Memo1->Lines->Clear();

Memo1->Lines->Add("SPEK 4DTY");

Memo1->Lines->Add("Group");

Memo1->Lines->Add("PR - 9 - 12");

}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

Memo1->Lines->LoadFromFile("Гребенюк.txt");

}

void __fastcall TForm1::Memo1Change(TObject *Sender)

{

Memo1->ShowHint = true;

Memo1->Hint = "Для завантаження документа натиснути будь яку клавішу";

}

void __fastcall TForm1::DateTimePicker1Change(TObject *Sender)

{

Memo1->Lines->Clear();

DateTimePicker1->Date=DateTimePicker2->Date;

DateTimePicker2->Date=DateTimePicker3->Date;

DateTimePicker3->Date=DateTimePicker1->Date;

Memo1->Lines->Add("Час: " + TimeToStr(DateTimePicker1->Time));

Memo1->Lines->Add("Дата: " + DateToStr(DateTimePicker2->Date));

}

Результат роботи:

Висновок: Я навчився вводити в програму символьну інформацію різного призначення та використовувати списки та перемикачі.

Лабораторна робота №3

Тема: Робота з компонентами сторінки Dialogs.

Мета: Навчитися створювати спеціальні форми, які забезпечують діалог користувача з програмою.

Лістинг програми:

//Forma1

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::Button3Click(TObject *Sender)

{

if (OpenDialog1->Execute())

Memo1->Lines->LoadFromFile(OpenDialog1->FileName);

StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName;

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (FontDialog1->Execute())

RichEdit1->Font=FontDialog1->Font;

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if (ColorDialog1->Execute())

Memo1->Color=ColorDialog1->Color;

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Memo1->Clear();

RichEdit1->Clear();

}

void __fastcall TForm1::FormDblClick(TObject *Sender)

{

Form2->ShowModal();

}

void __fastcall TForm1::StatusBar1MouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)

{

Form3->Show();

}

//Forma2

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit3.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{ }

void __fastcall TForm2::FormClick(TObject *Sender)

{ Form3->Show();}

Результат роботи:

Висновок. Я навчися створювати спеціальні форми, які забезпечують діалог користувача з програмою.