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

Тема: Розробка головного і допоміжного меню додатку.

Мета: Навчитися створювати додатки з використанням меню.

Завдання: Файли ( відкрити, зберегти, зберегти як, вийти ), редагування ( вирізать, виділити все, копіювати ).

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

#include <vcl.h>

#pragma hdrstop

#include <iostream.h>

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

String Filename="";

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{ }

void __fastcall TForm1::FormCreate(TObject *Sender)

{ Memo1->Clear(); }

void __fastcall TForm1::N3Click(TObject *Sender)

{ if(Filename=="")

{ if (SaveDialog1->Execute())

Memo1->Lines->SaveToFile(SaveDialog1->FileName); }

else Memo1->Lines->SaveToFile(Filename); }

void __fastcall TForm1::N2Click(TObject *Sender)

{

if (OpenDialog1->Execute())

{ Filename=OpenDialog1->FileName;

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

}

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

}

void __fastcall TForm1::N4Click(TObject *Sender)

{

if (SaveDialog1->Execute())

Memo1->Lines->SaveToFile(SaveDialog1->FileName);

}

void __fastcall TForm1::N5Click(TObject *Sender)

{ Close(); }

void __fastcall TForm1::N8Click(TObject *Sender)

{ Memo1->CopyToClipboard(); }

void __fastcall TForm1::N7Click(TObject *Sender)

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

{ Memo1->CutToClipboard(); }

void __fastcall TForm1::N9Click(TObject *Sender)

{ Memo1->SelectAll(); }

void __fastcall TForm1::N10Click(TObject *Sender)

{ Memo1->CopyToClipboard(); }

void __fastcall TForm1::N11Click(TObject *Sender)

{ Memo1->PasteFromClipboard(); }

void __fastcall TForm1::N12Click(TObject *Sender)

{ Memo1->SelectAll(); }

void __fastcall TForm1::N13Click(TObject *Sender)

{ Memo1->PasteFromClipboard(); }

Висновок: Я навчився створювати додатки з використанням меню.

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

Тема: Створення додатка з використанням панелі інструментів.

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

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

#include <vcl.h>

#pragma hdrstop

#include <iostream.h>

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

String Filename="";

bool save=false;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{ Memo1->Clear(); if(Filename=="") N3->Enabled=false;

}

void __fastcall TForm1::N3Click(TObject *Sender)

{ Memo1->Lines->SaveToFile(Filename); }

void __fastcall TForm1::N2Click(TObject *Sender)

{

if (OpenDialog1->Execute())

{ Filename=OpenDialog1->FileName;

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

}

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

}

void __fastcall TForm1::N4Click(TObject *Sender)

{

if (SaveDialog1->Execute()){

Memo1->Lines->SaveToFile(SaveDialog1->FileName);

Filename= SaveDialog1->FileName;

} }

void __fastcall TForm1::N5Click(TObject *Sender)

{ Close(); }

void __fastcall TForm1::N8Click(TObject *Sender)

{ Memo1->CopyToClipboard(); }

void __fastcall TForm1::N7Click(TObject *Sender)

{ Memo1->CutToClipboard(); }

void __fastcall TForm1::N9Click(TObject *Sender)

{ Memo1->SelectAll(); }

void __fastcall TForm1::N10Click(TObject *Sender)

{ Memo1->CopyToClipboard(); }

void __fastcall TForm1::N11Click(TObject *Sender)

{ Memo1->PasteFromClipboard(); }

void __fastcall TForm1::N12Click(TObject *Sender)

{ Memo1->SelectAll(); }

void __fastcall TForm1::N13Click(TObject *Sender)

{ Memo1->PasteFromClipboard(); }

void __fastcall TForm1::Memo1Change(TObject *Sender)

{

if(Filename!="")

N3->Enabled=true;

}

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

int X, int Y)

{ if(Filename!="") N3->Enabled=true; }

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

Висновок. На даній лабораторній роботі я навчився створювати додатки з використанням панелі інструментів.