Bild bewegen?

DelphiNoobCoder · Beiträge: 98 Win XP SP1

Hallo,
ich wollt fragen wie ich das das Grün eingerahmte Mänchen dahin geht wo der Pfeil hinzeigt und das ohne Ruckeln?
user defined image

Diese Mäncehn tauchen per Timer auf darum soll es sich auch nur nach unten bzw. oben bewegen wenn der timer an ist.
MFG Martin

HelgeLange · Verfasst: Mo 12.03.07 20:37

Ganz einfach, du rechnest dir den Pfad aus (dein Pfeil) und im Timer-Event setzt Du Top und Left Deiner Image-Komponente entlang des Pfades.

Den Code musst Du Dir schon selber überlegen, will ja nicht Deine Hausaufgaben machen.

_________________
"Ich bin bekannt für meine Ironie. Aber auf den Gedanken, im Hafen von New York eine Freiheitsstatue zu errichten, wäre selbst ich nicht gekommen." - George Bernhard Shaw

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Vieleicht hilft Dir das ein bischen (Nur zum Veranschaulichen)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Shape1.Left:=Random(Form1.Width-Shape1.Width);
  Shape1.Top:=Random(Form1.Height-Shape1.Height);
end;

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

DelphiNoobCoder hat folgendes geschrieben:

ohne Ruckeln

Kommt drauf an, was du mit Ruckeln meinst. Du wirst es auf jeden Fall in kleinen Schritten bewegen müssen, wenn du es immer um 20 Pixel bewegst, ruckelt es natürlich.
Wenn du mit Ruckeln aber ein Flimmern meinst, hilft dir DoubleBuffered:=true; ins onCreate der Form.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme