Движение объектов в Delphi

[citruswa]

Добрый день. Окончательно запутался в классах, полиморфизме и кучи ошибок.. Прошу помощи, как исправить эти ошибки?

Есть три фигуры (см.картинку). Их надо привести в одновременное движение,при ударе о стенку они должны отражаться (угол падения=углу отражения).


Unit1:

PHP код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit2, StdCtrls, ExtCtrls, Unit2;

type TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  Ellipse1:Tellipse;
  Ellipse2:TEllipse2;
  Ellipse3:Tellipse3;
  x1,y1,dx1,dy1,x2,y2,dx2,dy2,x3,y3,dx3,dy3:Integer;fl:Boolean;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 flag:=true;
  Timer1.Enabled:=False;
  Image1.Canvas.Pen.Color:=clWhite;
  Image1.Canvas.Rectangle(0,0,800,400);
  Image1.Canvas.Pen.Color:=clBlack;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
fl:=True;
  Timer1.Enabled:=False;
  Image1.Canvas.Pen.Color:=clwhite;
  Image1.Canvas.Rectangle(0,0,800,400);
  Image1.Canvas.Pen.Color:=clBlack;
  Randomize;
  dx1:=randomrange(1,4);
  dy1:=randomrange(-4,-1);
  dx2:=randomrange(-4,-1);
  dy2:=randomrange(1,4);
  dx3:=randomrange(1,4);
  dy3:=randomrange(1,4);
  x1:=70;  y1:=300; x2:=302; y2:=300; x3:=186; y3:=100;
  xr1:=400; yr1:=100; xr2:=350; yr2:=200; xr3:=400; yr3:=300;
  xr4:=450; yr4:=200;
  xa:=600;  ya:=200;  b:=100;
end;

  Ellipse1.Free;
  Ellipse1:=Ellipse1.Create(x1,y1,dx1,dy1:integer;Image1);
  Ellipse1.draw;

  Ellipse2.Free;
  Ellipse2:=Ellipse2.Create(x1,y1,dx1,dy1,x2,y2,dx2,dy2:integer;Image1);
  Ellipse2.draw;

  Ellipse3.Free;
  Ellipse3:=Ellipse3.Create(x1,y1,dx1,dy1,x3,y3,dx3,dy3:integer;Image1);
  Ellipse3.draw;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if fl then
  begin
   Image1.Canvas.Pen.Color:=clwhite;
   Image1.Canvas.Rectangle(0,0,800,400);
   Image1.Canvas.Pen.Color:=clBlack;
   Ellipse1.move;
   Ellipse2.move;
   Ellipse3.move;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 flag:=not flag;
  Timer1.Interval:=1;
  if not flag then
  Timer1.Enabled:=True;
  if flag then
  Timer1.Enabled:=False;
end;
end. 


[citruswa]

Unit2

PHP код:

unit Unit2;
interface
Uses graphics,ExtCtrls;

Type
     TEllipse=Class
         x,y,dx,dy:integer;
         procedure Draw(Image1:Timage);virtual;
        constructor Create(ax,ay,adx,ady:integer;aImage:TImage);
        procedure Move; virtual;
     end;

     TEllipse2=Class(TEllipse)
        x1,y1,dx1,dy1:integer;
        procedure Draw(Image1:Timage);virtual;
        constructor Create(ax,ay,adx,ady,ax1,ay1,adx1,ady1:integer;aImage:TImage);
        procedure Move; virtual;
     end;

     TEllipse3=Class(TEllipse)
            x2,y2,dx2,dy2:integer;
            procedure Draw(Image1:Timage);virtual;
            constructor Create(ax,ay,adx,ady,ax2,ay2,adx2,ady2:integer;aImage:TImage);
            procedure Move; virtual;
     end;
implementation

 Constructor TEllipse.Create;
    Begin x:=ax; y:=ay; dx:=adx; dy:=ady;End;

 procedure TEllipse.draw;
 var t,s,c:Real;
     i:Integer;
 begin
  Image1.Canvas.Moveto(x,y);
  for i:=1 to 360 do
   begin
    t:=pi/180*i;
    s:=sin(t);
    c:=cos(t);
    x:=round(s*s*s)+x;
    y:=round(c*c*c)+y;
    Image1.Canvas.ellipse(x,y,dx,dy);
   end;
 end;

 procedure TEllipse.move;
 begin
  inherited draw;
  x:=x+dx;
  y:=y+dy;
  if ((ya<305) and (ya>=300)) or ((ya>95) and (ya<=100)) then
   dy:=-dy;
  if ((xa<705) and (xa>=700)) or ((xa>95) and (xa<=100)) then
   dx:=-dx;
 end;

 Constructor TEllipse2.Create;
    Begin
    inherited create(ax,ay,adx,ady:integer;aImage:TImage); x1:=ax; y1:=ay; dx1:=adx; dy1:=ady; End;

    procedure TEllipse2.draw;
    begin Image1.Canvas.Ellipse(x1,y1,dx1,dy1);end;

    procedure TEllipse2.move;
 begin
  inherited draw;
   x1:=x1+dx1;
   y1:=y1+dy1;
  if ((y<400) and (y>=395)) or ((y3>0) and (y3<=5)) then
   dy:=-dy;
  if ((x2<800) and (x2>=795)) or ((x>0) and (x<=5)) then
   dx:=-dx;
 end;

     constructor TEllipse3.Create;
 begin
  inherited create(aImage,xs,ys,dxs,dys);
   x2:=ax; y2:=ay; dx2:=adx; dy2:=ady;
 end;

 procedure TEllipse2.draw;
 begin
  Image.Canvas.MoveTo(x,y);
  Image.Canvas.Ellipse(x2,y2,dx2,dy2);
 end;

 procedure TEllipse3.draw;
 begin
  Image.Canvas.MoveTo(x,y);
  Image.Canvas.Ellipse(x3,y3,dx3,dy3)
 end;

 procedure TEllipse3.move;
 begin
  TEllipse3.draw;
   x2:=x2+dx2;
   y2:=y2+dy2;
  if ((y3<400) and (y3>=396)) or ((y>0) and (y<=4)) then
   dy:=-dy;
  if ((x4<800) and (x4>=796)) or ((x2>0) and (x2<=4)) then
   dx:=-dx;
 end;

end. 


[phomm]

Если ошибки компиляции - то прикрепляйте проект.
Если ошибки логики, то сами где-то намудрили... тут мало кто поможет, ибо Вы даже задание не расписали, не понятно что за движение (вверх-вниз или вправо-влево или ещё как), что за удар(с изменением формы, с изменением ориентации одной фигуры из группы относительно другой или без)

Не понял, зачем передаёте в конструктор AImage? если нигде его не используете, ибо прорисовка на Image1, который передаёте в процедуру draw. А в элипс2 и элипс3 в процедуре draw вообще используете неизвестный в тамошнем контексте Image (напомню, что в том контексте есть только Image1)

сей код вообще фееричен, лежит просто так в модуле, вне методов.

  Ellipse1.Free; 
  Ellipse1:=Ellipse1.Create(x1,y1,dx1,dy1:integer;Image1); 
  Ellipse1.draw; 

  Ellipse2.Free; 
  Ellipse2:=Ellipse2.Create(x1,y1,dx1,dy1,x2,y2,dx2,dy2:integer;Image1); 
  Ellipse2.draw; 

  Ellipse3.Free; 
  Ellipse3:=Ellipse3.Create(x1,y1,dx1,dy1,x3,y3,dx3,dy3:integer;Image1); 
  Ellipse3.draw;

Тут непонятно зачем так сделано:

    procedure TEllipse2.move; 
 begin 
  inherited draw; // <-
...

Это не скомпилится мне кажется

 procedure TEllipse3.move; 
 begin 
  TEllipse3.draw; // <-

Timer1.Interval:=1;

надо устанавливать в инспекторе объектов или при FormCreate

это

 flag:=not flag; 
  if not flag then 
  Timer1.Enabled:=True; 
  if flag then 
  Timer1.Enabled:=False;

можно заменить единственным

Timer1.Enabled := not Timer1.Enabled;

Идентация и имена переменных, да и вообще композиция кода оставляют желать многого.

[evg_m]

Окончательно запутался в классах, полиморфизме

   TEllipse=Class 
         x,y,dx,dy:integer; 
         procedure Draw(Image1:Timage);virtual; 
        constructor Create(ax,ay,adx,ady:integer;aImage:TImage); 
        procedure Move; virtual; 
     end; 

     TEllipse2=Class(TEllipse) 
        x1,y1,dx1,dy1:integer; 
        procedure Draw(Image1:Timage);OVERRIDE;
        constructor Create(ax,ay,adx,ady,ax1,ay1,adx1,ady1:integer;aImage:TImage); 
        procedure Move; OVERIDE;
     end;