Image zufällig bewegen und an den Rändern abprallen lassen

[Daniel B]

Delphi-Quellcode:

var 
  Form1: TForm1; 
  vx, vy: integer; 

implementation 
{$R *.DFM} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Randomize; 
  vx := -10 + Random(20); 
  vy := -10 + Random(20); 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Image1.Left := Image1.Left + vx; 
  Image1.Top  := Image1.Top + vy; 
  if (Image1.Left > ClientWidth - Image1.Width - 1) or (Image1.Left < 1) then 
    vx := vx * -1; 
  if (Image1.Top > ClientHeight - Image1.Height - 1) or (Image1.Top < 1) then 
    vy := vy * -1; 
end;

Grüsse, Daniel :hi: