ich habe versucht ein sich bewegendes bild zu coden. leider bewegt es sich überhaupt nicht
hier mein code:

Quellcode:procedure TForm1.DXTimer1Activate(Sender: TObject);
begin
if not DXDraw1.CanDraw then
exit;
x:=x+vx;
y:=y+vy;

if x<=0 then
vx:=vx*-1;

if x>=DXDraw1.width-DXImageList1.Items[0].width then
vx:=vx*-1;

if y<=0 then
vy:=vy*-1;

if y>=DXDraw1.height-DXImageList1.Items[0].height then
vy:=vy*-1;

DXImagelist1.Items[0].draw(DXDraw1.surface, x,y, 0);
DxDraw1.Flip;
end;


edit
ich benutze delphi 3

..::Follow the rabbit ::..