unit U_timer;
interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg,
ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
procedure FormCreate(Sender:
TObject);
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure Image1Click(Sender:
TObject);
procedure Image2Click(Sender:
TObject);
procedure Image3Click(Sender:
TObject);
procedure Image4Click(Sender:
TObject);
procedure Image5Click(Sender:
TObject);
procedure
Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure
Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image2MouseMove(Sender:
TObject; Shift: TShiftState; X,
Y: Integer);
procedure
Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure
Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Edit1Change(Sender:
TObject);
procedure Timer1Timer(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure aktif;
procedure nonaktif;
end;