Bildschirmschoner

**City Light**

Ich bin gerade dabei mir mein eignenden Schoner zu programmieren.
Nun komme ich aber nicht mehr weiter, folgendes..jeder kennt doch den Schoner von Windows.Ich glaub der heißt 3D-Objekt oder so na ja der, der sich von einer Seite zur anderen Seite des Bildschirmes bewegt.Also in allen Richtungen prallt.

Hier was ich zur Zeit Habe

markieren

Code:

			var

  Form1: TForm1;

  vx: Integer = 1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

  Form1.DoubleBuffered:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Image1.Left:=Image1.Left +vx;

  if Image1.Left>ClientWidth - Image1.Width-1 then

    vx:=vx*-1;

  if Image1.Left<1 then

    vx:=vx*-1;

end;

kann mir da jemand helfen?
Danke im vorraus

Bildschirmschoner

Bildschirmschoner

Forumregeln