2.Задача про анкету.

Мета роботи: Вивчити властивості та дії з компонентами Label та Image. Для цього створити форму «Анкета студента» з особистими даними і фотографіями кожного зі студентів, які перекривають одна одну і повинні з’являтися при натисканні на відповідні кнопки з прізвищами студентів. Також створити кнопку для виходу з програми. Запрограмувати роботу кнопок.

Об’єкти: форма (Form), Кнопка (Button із сторінки Standard), Зображення (Image із сторінки Additional), Підпис чи текстове поле (Label із сторінки Standard).

Основні властивості (діалогове вікно Object Inspector, закладка Properties):

Color (колір), Caption (назва), Visible (видимість), Width (ширина), Height (висота).

Порядок виконання

1)Створюємо форму. Задаємо її назву «Лабораторна робота №2. Анкета Абрамчук - Петрів».

2)Розміщуємо на формі необхідні компоненти з палітри компонентів: тектові рядки (Edit), кнопки (Button), підписи (Label), зображення (Image)(Рис.6.та Рис.7.). Текстові поля одного призначення але про різних студентів і зображення розміщаємо на формі наклавши одне на одне.

3)Задаємо властивості всіх компонент в Інспекторі Об’єктів. При цьому необхідний компонент активізується або клацанням по ньому на формі, або з верхньої частини діалогового вікна Інспектора Об’єктів. Текстові поля і фотографію першого студента робимо видимими, а іншого невидимими. Властивості компоненти Image, які потрібно використати в даній програмі: Center – вирівнювання зображення до центру відносно поля, що його містить, Picture – задання імені графічного файлу, Stretch – приведення розміру зображення до заданих розмірів об’єкта, або AutoSize - приведення розміру об’єкта до реальних розмірів зображення.

4)Запрограмовуємо кнопки з прізвищами студентів на виконання зміни видимості чи невидимості текстових полів і фотографій використовуючи властивість Visible, та кнопку виходу з програми. Студент1 –Абрамчук, Студент2 –Петрів. Для цього створюємо процедуру, яка представлена нижче:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Edit3: TEdit;

Label3: TLabel;

Edit4: TEdit;

Label4: TLabel;

Edit5: TEdit;

Label5: TLabel;

Edit6: TEdit;

Label6: TLabel;

Image1: TImage;

Button1: TButton;

Button2: TButton;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Image2: TImage;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Visible := true;

Label2.Visible := true;

Label3.Visible := true;

Label4.Visible := true;

Label5.Visible := true;

Label6.Visible := true;

Edit1.Visible := true;

Edit2.Visible := true;

Edit3.Visible := true;

Edit4.Visible := true;

Edit5.Visible := true;

Edit6.Visible := true;

Image1.Visible := true;

Label7.Visible := false;

Label8.Visible := false;

Label9.Visible := false;

Label10.Visible := false;

Label11.Visible := false;

Label12.Visible := false;

Edit7.Visible := false;

Edit8.Visible := false;

Edit9.Visible := false;

Edit10.Visible := false;

Edit11.Visible := false;

Edit12.Visible := false;

Image2.Visible := false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Label1.Visible := false;

Label2.Visible := false;

Label3.Visible := false;

Label4.Visible := false;

Label5.Visible := false;

Label6.Visible := false;

Edit1.Visible := false;

Edit2.Visible := false;

Edit3.Visible := false;

Edit4.Visible := false;

Edit5.Visible := false;

Edit6.Visible := false;

Image1.Visible := false;

Label7.Visible := true;

Label8.Visible := true;

Label9.Visible := true;

Label10.Visible := true;

Label11.Visible := true;

Label12.Visible := true;

Edit7.Visible := true;

Edit8.Visible := true;

Edit9.Visible := true;

Edit10.Visible := true;

Edit11.Visible := true;

Edit12.Visible := true;

Image2.Visible := true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

FOrm1.Close;

end;

end.

Після складення процедури ми отримаємо форми: Рис.6. та Рис.7.

Рис.6. «Вигляд форми при натисненні кнопки Студент 1»

Рис.7. «Вигляд форми при натисненні кнопки Студент 2»

5)Зберігаємо програму.

Висновок: В результаті виконання даної лабораторної роботи ми вивчили властивості та дії з компонентами Label, Edit та Image. Для цього ми створили форму «Анкета студента» з особистими даними двох студентів та зображеннями. Також створили кнопку виходу з програми.