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



Скачать 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


Скачать 496.51 Kb.

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




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

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