Der Ball

[turboPASCAL]

Ich machs mal kurz, einfach hier abgucken: Simple Pong

Delphi-Quellcode:

// zB. im FormCreate
var bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  bitmap.LoadFromFile('...Ball.bmp');
  bitmap.Transparent := True;
  bitmap.TransparentColor := clFuchsia;
  //...
end;

procedure PaintBall(x,y: Integer);
begin
  Form1.Canvas.Draw(x,y, Bitmap);

  //oder zB.:
  PaintBox1.Canvas.Draw...
  
end;

//...
procedure TForm1.FormDestroy(Sender: TObject);
begin
  bitmap.free; // <---<<< nicht vergessen
end;