Folgender Sachverhalt:
Ich habe eine Gifanimation die ich mittels mausklick gerne bewegen will. Da hab ich als erstes das hier gemacht:
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
xm := X;
ym := Y;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
if ym > JvGifAnimator1.Top then
begin
while ym > JvGifAnimator1.Top do
begin
JvGifAnimator1.Top :=JvGifAnimator1.Top +1;
end
end
else
begin
while ym < JvGifAnimator1.Top do
JvGifAnimator1.Top :=JvGifAnimator1.Top -1;
end;
if xm > JvGifAnimator1.Left then
begin
while xm > JvGifAnimator1.Left do
JvGifAnimator1.Left :=JvGifAnimator1.Left +1
end
else
begin
while xm < JvGifAnimator1.Left do
JvGifAnimator1.Left :=JvGifAnimator1.Lft -1;
end
end;
n bisschen viele begins und ends ich weiss ja aber es funktioniert.Nur leider etwas zu schnell so dass gar keine Bewegung zu stande kommt, sondern die Animation sofort beim Mauszeiger landet dann hab ich einfach for jedes JvGifAnimator1.Left :=JvGifAnimator1.Left +1 und so weiter ein SLEEP(1) gesetzt und nun hängt es sich komplett auf und nichts geht mehr. Warum??? kennt jemand vielleicht eine Lösung oder weiss zumindest warum das dann hängt...ic hversteh es nicht.
Danke schonmal im Vorrausich bin mir sicher jemand kann mir helfen
