ping pong von der wand abprallen lassen

[VioLater]

mein Ball soll von der Wand abprallen aber bis jetzt saust er durch die Wand und verschwindet gerade Arbeite ich mit delphi 7 enterprice und brauch hilfe

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Shape1: TShape;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Shape1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Interval := 150;
 shape1.Left := shape1.Left + 25;
end;

end

so siehts zur zeit aus

[edit=Phoenix] Das ist der DRITTE Thread wo ich die tags setze von Dir Mfg, Phoenix[/edit]

[Mazel]

Hallo,

du musst überprüfen ob die Shape zu weit, in deinem Fall, rechts ist.
Als Beispiel:
- Shape soll bei 300 px nach rechts wieder abprallen
- wenn shape1.Left + 25 gleich 300 ist dann abprallen

sollte dann aber auch alles andere passen.

Grüße
Mazel

[Phoenix]

Also jetzt reichts so langsam!

Hier gehts weiter!