Министерство образования и науки РФ

Федеральное государственное бюджетное

образовательное учреждение

высшего профессионального образования

«Белгородский государственный технологический университет

им. В.Г.Шухова»

Губкинский филиал

ЛАБОРАТОРНАЯ РАБОТА №2

по предмету: «Интерфейсы периферийных устройств »

Выполнил студент: Бодриков

Евгений Павлович

Группа: БИВТ-31сз

Направление: 230100.62

Информатика и вычислительная техника

Проверил: Черных В.А.

г.Губкин 2014г

Задание:

Написать обработчик мыши (определить координаты мыши и вывести их на экран)

Код программы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Timer1: TTimer;

Timer2: TTimer;

Timer3: TTimer;

procedure FormCreate(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Timer3.Enabled:=true;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

Label2.Caption:=IntToStr(Mouse.CursorPos.X);

Label4.Caption:=IntToStr(Mouse.CursorPos.y);

Timer3.Enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label5.Visible:=false;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Label6.Visible:=false;

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then begin

Label5.Visible:=true;

Timer1.Enabled:=true;

form1.Color:= clSkyBlue;

end

else

if Button=mbRight then begin

Label6.Visible:=true;

Timer2.Enabled:=true;

form1.Color:= clYellow;

end

else

if Button=mbMiddle then begin

form1.Color:=clBtnFace;

end; end; end.