АСОИ, Delphi, много вариантов 2 сем / 1классы / машинка / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,UTrap,UM, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
Timer2: TTimer;
RadioGroup2: TRadioGroup;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer2Timer(Sender: TObject);
procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Trap1:TTrap;
M1:TM;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Trap1:=TTrap.create(90,30,20,70,clred,Form1.Canvas);
M1:=TM.create(200,200,Form1.Canvas);

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Trap1.Show;
M1.show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Trap1.Free;
M1.Free;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=True;
M1.show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Trap1.Move(1);
M1.show;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=False;
M1.show;
end;

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer2.Enabled:=True;
Trap1.Show;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if RadioGroup2.ItemIndex=0 then
M1.move(-2)
else M1.move(2);
Trap1.Show;
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer2.Enabled:=False;
Trap1.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
M1.otdver;
Trap1.Show;
end;

end.