Pong ähnliches spiel

[StefanDP]

Delphi-Quellcode:

...
implementation
procedure SetzeAnPosition(stein: TImage; x,y: Integer); forward; // sagen, dass es die Proz. gibt!
...

procedure SetzeAnPosition(stein: TImage; x,y: Integer);
begin
  stein.top := y;
  stein.left := x;
end;

//Die Funktion kannst du jetzt so aufrufen:
...
  SetzeAnPosition(image5, 10, 20);
...
// Dann wird dein Stein 5!? von oben 20 und von links 10 pixel enfernt plaziert

in deinem zufallsbeispiel wär das dann z.b. so:

Delphi-Quellcode:

case random(5) of
0: begin
     SetzeAnPosition(image1, 10, 10);
     SetzeAnPosition(image2, 30, 20);
     SetzeAnPosition(image3, 50, 10);
     SetzeAnPosition(image4, 70, 20);
   end;
1: begin
     SetzeAnPosition(image1, 15, 10);
     SetzeAnPosition(image2, 10, 10);
     ...
   end;
usw...
end;

ich hoff das bringt dich weiter!

stefan