Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Mär 2006
Das meinst du nicht ernst, oder?
Mit mehreren Imageboxen und dann auch noch in einzelnen Prozeduren und die Bilder aus Dateien laden?
Dass das ruckelt, glaube ich gerne.
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Mär 2006
Ich glaube, er will zu einem Löschvorgang eine Art Animation eines Mülleimers abspielen.
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Mär 2006
Jetzt tu mir nen Gefallen und benutze diesen Code. Einfach ausprobieren, bevor du mögliche Fehler kritisierst. Nebenbei würde ich die Bilder eher in eine ImageList laden, die Dinger 16 mal in der Sekunde aus der Datei zu laden ist ineffizient.
EDIT: Was meinst du, wie ein Timer funktioniert? Das ist nichts anderes als GetTickCount schön in ne Klasse verpackt.
procedure TForm1.trash;
var...
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Mär 2006
Application.ProcessMessages ist in diesem Fall nur ein Füller und heißt so viel wie "nichts tun bis 50 ms um sind."
Da ruckelt absolut gar nix. So wie du das gemacht hast, geht er das durch:
start:=GetTickCount; //also ist start der Anfangswert
if start+50=GetTickCount... //Hier ist höchstens eine Millisekunde vergangen, also ist die Bedingung nicht erfüllt und so geht das auch bei den...
Forum: Object-Pascal / Delphi-Language
Delphi
by 3_of_8,
18. Mär 2006
Wie wäre es, wenn du statt dem = ein <= nimmst? So wie es jetzt ist, geht das nur, wenn der Computer es exakt in der richtigen Millisekunde schafft.
EDIT: Der Fehler liegt noch wo ganz anders. Du musst es so machen:
procedure TForm1.trash;
var start:longint;
i:integer;
begin
repeat