Столкновение

[GaLiof]

Народ, подскажите, как в делфи обработать столкновение 2х объектов?
У меня есть шар, который движется по форме, и второй, который просто стоит на ней. Мне надо, чтоб при столкновении 2й шар приобрёл скорость первого, а первый остановился...Оба объекта shape.

[TwiX]

Чистая математика - при движении проверяем расстояние и, если оно меньше r1+r2, меняем скорости шаров.

[GaLiof]

Вот именно то, как проверить расстояние меня и интересует...

[Stilet]

У тебя центры шаров извесны?
Вот и прекрасно - По теореме пифагора найдешь между ними расстояние sqrt(sqr(x1-x2)+sqr(y1-y2)), а далее как сказано было если оно менее суммы радиусов - то шар столкнулся.

[GaLiof]

Всё это конечно прекрасно и легко, но:как узнать координаты ЦЕНТРА объекта Shape? И учитывая, что один из них паостоянно движется...
Вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure shar();
    procedure calcmouseval();
  end;

var
  Form1: TForm1;
PosX, PosY, VelX, VelY:single;
lastmouseX, LastmouseY:integer;
mouseVelX,MouseVelY:integer;
mousebutton:boolean;
implementation

{$R *.dfm}

procedure TForm1.shar;
begin
PosX:=PosX+VelX;
PosY:=PosY+VelY;
if PosX>ClientWidth - shape1.width then
begin
velX:=-VelX;
end
else if PosX<0 then
begin
Posx:=0;
velX:=-VelX;
end;
if PosY>ClientHeight - shape1.height then
begin
velY:=-VelY;
end
else if PosY<0 then
begin
PosY:=0;
velY:=-VelY;
end;
shape1.Left:=Round(PosX);
shape1.Top:=Round(PosY);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Color:=clblack;
PosX:=3;
PosY:=7;
VelX:=3;
VelY:=3;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
shar;
calcmouseval;
end;

procedure TForm1.calcmouseval;
var
mouseX, MouseY:integer;
begin
mouseX:=mouse.CursorPos.X-form1.ClientOrigin.X;
MouseY:=mouse.CursorPos.Y-form1.ClientOrigin.Y;
mouseVelX:= mouseX-lastmouseX;
mouseVely:= mousey-lastmousey;
LastmouseX:=mouseX;
lastmousey:=mousey;
if mousebutton=true then
begin
posX:=mouseX-shape1.width/2;
posY:=mouseY-shape1.width/2;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mousebutton:=true;
velx:=0;
velY:=0;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mousebutton:=false;
velX:=mousevelX;
VelY:=mousevelY;
end;
end.

Смысл в том, что сюда надо добавить ещё один шар, которым я уже не буду управлять(знаю как сделать), и чтоб когда я кидаю 1й во 2й, 2й начал движение, а первый точно также как от краёв формы отрекашетил от него...

[Stilet]

как узнать координаты ЦЕНТРА объекта Shape

 
with shape do begin
 cx:=left+width div 2;
 cy:=Top+Height div 2;
end;

понял?