ich habe diesen quelltext gefunden, der ist für pong... ich mache ein breakit aber ich habe das problem, dass ich den ball nicht im image halten kann. er fliegt einfach immer weiter... .
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:integer;
begin
x := 5;
y := 5;
Shape1.Left := Shape1.Left +x ;
Shape1.Top := Shape1.Top + y;
if (Shape1.Top <= 100) or (Shape1.Top >= image1.ClientHeight) then
begin
y := -y;
end;
if (Shape1.Left <= 0) or (Shape1.Left >= image1.ClientWidth) then
begin
x := -x;
end;
end;
end.
müsste das nicht eigentlich durch image1.client... ausgeschlossen werden??
mfg
[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]