tbitmap bewegen

[Julzn]

hmmm, also ich weiss eigentlich ned genau wo ich die übermalfunktion
hinschreibn soll. bis jetzt sieht des so aus. aber ich denk mal dass da
auch so noch einiges zu verbessern is. zb des mit source and dest
bei bitblt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=150;
  b:=150;
  ball[0]:= tbitmap.Create;
  ball[0].LoadFromFile('b_lemon.bmp');
  ball[0].TransparentColor:=clwhite;
  ball[0].Transparent:=true;
  ball[0].Width:=50;
  ball[0].Height:=50;
  paintbox1.canvas.Draw(150,150,ball[0]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  a:=a+10;
  b:=b+20;
  BitBlt(paintbox1.canvas.handle,a,b,50,50,canvas.handle,a-10,b-20,srccopy)
end;

einfach mal comment dazu
THX