Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
Wie kann ich eine image komponente sich Zufallsgesteuert auf dem Bildschirm bewegen lassen?
Das image soll z.B von rechts nach links unten entlangfliegen.
Die Image-Komponente kannst du bewegen, indem du die Left- und Top-Eigenschaft veränderst (am besten in einen Timer). Bei großen Bildern wirst du aber ein unerträgliches Flackern erhalten, da der Bildaufbau zu lange dauert, besser (aber leider auch komplizierter *grummel*) ist es, wenn du per Windows-API/DirectX Animationen erzeugt.
Leider weiss ich ja nicht genau, was du genau unter dieser "zufallsgesteuerter" Animation verstehst, ich armer Kerl kann dir deswegen da auch nicht mit Code-Beispielen weiterhelfen, schnüff
Hey,<br>
das Problem mit der Bildbewegung habe ich auch. Weiß <zufällig> jemand, wie man es <b>ohne</b> einen Timer machen kann?<br>
Danke,<br>
Lionhea
Mit Timer:
Einfach: Randomize;
Image1.Left := Random(800);
Image1.Top := Random(600;
Statt 800 und 600 kann man auch andere Zahlen eingeben. Die Position von Image1.Left wird dann jedesmal wenn der Timer abläuft zwischen 0 und 800 ausgewählt.
Ohne Timer (hier bei drücken von Enter wird Prozedure ausgelöst und läuft ab bis Leertaste gedrückt wird):
procedure TForm1.OnKeyUp(...);
begin
if key = VK_Enter then begin
repeat
Randomize;
Sleep(50); //Sleep ersetzt hier den Timer
Image1.Left := Random(800); //das gleiche wie oben
Image1.Top := Random(600);
until key = VK_Space; //Bis leertaste gedrückt wird
end;
end;
Comment