Введение основная часть



Скачать 496.51 Kb.
страница12/14
Дата09.01.2018
Размер496.51 Kb.
Название файлаДокумент Microsoft Office Word.docx
ТипРеферат
1   ...   6   7   8   9   10   11   12   13   14
unit Unit2;

interface

uses

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



Dialogs, StdCtrls, jpeg, ExtCtrls;

type


TForm2 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label3: TLabel;

Label2: TLabel;

Label4: TLabel;

procedure Image1Click(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form2: TForm2;

Implementation

{$R *.dfm}

procedure TForm2.Image1Click(Sender: TObject);

begin


Close; // Закрытие окна при нажатии на него

end;


procedure TForm2.Label1Click(Sender: TObject);

begin


Close;

end;


procedure TForm2.Label2Click(Sender: TObject);

begin


Close;

end;


procedure TForm2.Label3Click(Sender: TObject);

begin


Close;

end;


procedure TForm2.Label4Click(Sender: TObject);

begin


Close;

end;


end.

unit Unit3;

interface

uses

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



Dialogs, StdCtrls, ExtCtrls, jpeg;

type


TForm3 = class(TForm)

Image1: TImage;

Label3: TLabel;

Label2: TLabel;

Label1: TLabel;

procedure FormShow(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);

begin


Form1.Timer1.Enabled:=False; // Выключаем таймер

end;


procedure TForm3.Image1Click(Sender: TObject);

begin


Close; // Закрытие окна при нажатии на него

end;


procedure TForm3.Label1Click(Sender: TObject);

begin


Close;

end;


procedure TForm3.Label2Click(Sender: TObject);

begin


Close;

end;


procedure TForm3.Label3Click(Sender: TObject);

begin


Close;

end;


end



Поделитесь с Вашими друзьями:
1   ...   6   7   8   9   10   11   12   13   14


База данных защищена авторским правом ©coolnew.ru 2019
обратиться к администрации

    Главная страница
Контрольная работа
Курсовая работа
Теоретические основы
Лабораторная работа
Методические указания
Общая характеристика
Рабочая программа
Теоретические аспекты
Пояснительная записка
Практическая работа
Дипломная работа
Методические рекомендации
Федеральное государственное
История развития
Общие сведения
Учебное пособие
Основная часть
государственное бюджетное
Направление подготовки
Теоретическая часть
Физическая культура
Самостоятельная работа
История возникновения
Методическая разработка
Краткая характеристика
Практическое задание
квалификационная работа
Выпускная квалификационная
Гражданское право
Название дисциплины
бюджетное учреждение
государственное образовательное
образовательное бюджетное
Российская академия
Общие положения
теоретические основы
прохождении учебной
история возникновения
образовательная организация
Общая часть
Понятие сущность
Уголовное право
Современное состояние
Правовое регулирование
Финансовое право
Фамилия студента
Техническое задание
Методическое пособие
Финансовое планирование
Теория государства
Российская федерация