Помогите доделать теннис с примерами

[nanobond]

Имеется такой код :
------------------------------------------------------------------------
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Image2: TImage;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;
dx,dy: integer;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Left:=(Form1.Width-Image1.Width) div 2;
Image1.Top:=(Form1.Height-Image1.Height) div 2;
randomize;
if random(100)>50 then dx:=1 else dx:=-1;
if random(100)>50 then dy:=1 else dy:=-1;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Image1.Left+dx<0)or
(Image1.Left+dx>Form1.Width-Image1.Width) then dx:=-dx;
if (Image1.Top+dy<0)or
(Image1.Top+dy>Form1.Height-Image1.Height) then dy:=-dy;
Image1.Left:=Image1.left+dx;
Image1.Top:=Image1.Top+dy;
end;

----------------------------------------------------------------------
в примере летящий шар. Что надо добавить в код что бы он отлетал от планки ( Image2 )?

[ОДИНОЧЕСТВО В СЕТИ]

вот в этой теме 5 пост скачай архив

[nanobond]

Посмотрел но ничего путного не нашёл. Мне нужно именно пример на моём коде.

[DeKot]

Сравнивайте координаты совпадения рисунков. Примерно следующее :

if  ((Image1.Left = Image2.Left) and (Image1.Top = Image2.Top)) then
begin
  dx := dx * (-1);
end;

Примерно, так как надо еще учитывать размеры (Width и Height) рисунков.

Посмотрел но ничего путного не нашёл

Плохо Вы посмотрели.В Уроках подробно показан код создания тенниса и именно принципы отражения мяча от ракетки при совпадении координат.
Просто в примере мяч и ракетки - TBitMap, а у Вас TImage. Но надо рассматривать их просто как объекты.

[nanobond]

Можно реально работающий код, а то у меня ничего не получается уж слишком всё запутанно.

[DeKot]

Внизу страницы

В атаче в добавок сам проект.

[nanobond]

Сообщение от DeKot

Внизу страницы

В атаче в добавок сам проект.

Это я уже смотрел там такая каша что очень сложно разобраться.

[Вадим Буренков]

там такая каша что очень сложно разобраться.

Ну низнаю... Код в примере элементарный, а комментарии в каждой строке. Другое дело если нет желания и хочется чтоб тебе "добрый дядя" твой проэкт дописал.

[nanobond]

Сообщение от Вадим Буренков

Ну низнаю... Код в примере элементарный, а комментарии в каждой строке. Другое дело если нет желания и хочется чтоб тебе "добрый дядя" твой проэкт дописал.

Желание то есть просто опыта маловато вот поэтому и ищу кто бы помог.

[DeKot]

Классика... Клиника...
Да никто тебе /Вам не поможет окромя себя.
Попробуй вот такой метод - 1.запустил код, откомпилровал. посмотрел.
2. Изменил одну переменную ( одну), выполнил п.1.
3. Проанализируй, что же изменилось.
4.Вернул все в обрат и убедился , что работает по прежнему.
5.Изменил другую переменную - п.1, 3, 4.
И так далее.
Если не получается - " парашютный спорт не для Вас".