Гребенюк Іван ПР – 9 – 12 СПЕК ЧДТУ
Міністерство освіти і науки України Смілянський промислово-економічний коледж чдту
ЗВІТ
з курсу: |
«Інструментальні засоби візуального |
|
програмування» |
Виконав:Гребенюк І.А. Перевірив:Зборівська В.П. |
2014 |
Зміст
Лабораторна робота №1 3
Лабораторна робота №2 5
Лабораторна робота №3 6
Лабораторна робота №4 8
Лабораторна робота №5 9
Лабораторна робота №6 11
Лабораторна робота №7 13
Лабораторна робота №8 15
Лабораторна робота №9 17
Лабораторна робота №10 19
Лабораторна робота №11 21
Лабораторна робота №1
Тема: керування компонентами, обробка подій миші і клавіатури.
Мета: навчитися змінювати положення компонента на екрані, його розміри і поведінку.
Хід роботи:
(Варіант7)
Розташовую 3 кнопки:
Кнопка1 – з лівого боку на всю ширину форми.
Кнопка2 – довжина кнопки збільшується в 4 рази.
Кнопка3 – Зникає напис.
На формі створюю дії миші:
OnMouseDown – Білий колір форми.
OnMouseMove – Блакитний колір форми.
OnMouseUp – Синій колір форми.
Розміщую кнопки Ok i Close. Ок – Реагує на подію OnClick (переміщує на формі на відстань 7 пікселів), OnMouseDown (змінює колір свого фону на червоний), OnMouseMove (змінює колір свого фону на синій), OnMouseUp (змінює колір фону на зелений), OnDblClick (змінює заголовок компоненту Label1 на прізвище Гребенюк).
Лістинг програми:
#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::Button2Click(TObject *Sender)
{
Button2->Width = Button2->Width*4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Align = alLeft;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Button3->Caption = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Form1->Color = clWhite;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Form1->Color = clBlue;
}
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Form1->Color = clHighlight;
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int m = Button4->Left;
Button4->Left=m+7;
}
void __fastcall TForm1::Button5Click(TObject *Sender)
{
exit(1);
}
void __fastcall TForm1::Label1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Form1->Color=clRed;
}
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Form1->Color=clHighlight;
}
void __fastcall TForm1::Label1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Form1->Color=clGreen;
}
void __fastcall TForm1::Label1DblClick(TObject *Sender)
{
Label1->Caption="Hrebeniyk";
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->KeyPreview=True;
}
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(VK_F10){Close();}
}
Результат роботи:
Висновок: Я навчився змінювати положення компонента на екрані, його розміри і поведінку.