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

[mutabor]

http://www.programmersforum.ru/showthread.php?t=25464
пост №8

[nanobond]

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

http://www.programmersforum.ru/showthread.php?t=25464
пост №8

Да это я пробовал никак не разберусь. Мне бы попроще что нибудь как мой пример.

[Манжосов Денис :)]

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<0) then dx := -dx;
  if (Image1.Top<0) then dy := -dy;
  if (Image1.Left + Image1.Width) > Width then dx := -dx;
  if (Image1.Top + Image1.Height) > Width then dy := -dy;
  Image1.Left:=Image1.left+dx;
  Image1.Top:=Image1.Top+dy;
end;

Всё работает, и твой объект отлетает от границ экрана. Насчёт "планки" я имею ввиду границу экрана.

[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<0) then dx := -dx;
  if (Image1.Top<0) then dy := -dy;
  if (Image1.Left + Image1.Width) > Width then dx := -dx;
  if (Image1.Top + Image1.Height) > Width then dy := -dy;
  Image1.Left:=Image1.left+dx;
  Image1.Top:=Image1.Top+dy;
end;

Всё работает, и твой объект отлетает от границ экрана. Насчёт "планки" я имею ввиду границу экрана.

А как сделать что бы от планки отлетал?