Bewegung

[s.h.a.r.k]

Hey.

Der Code hier geht nicht:
inc(Object.Left); Allgemein zu den Prozeduren (keine Funktionen!) inc und dec:
inc: steht für increment - zu deutsch: erhöhen

z.B.

Delphi-Quellcode:

var i: Integer;
i := 0;
inc(i); // hier wird i um 1 erhöht;
inc(i, 10) // hier wird i um 10 erhöht,
           // d.h. dass 10 ein optionaler
           // Paramter ist

dec: steht für decrement - zu detusch: erniedrigen oder auch verringern (nach ausdrücklichem Wunsch )

Hier gilt das selbe Beispiel wie oben genannt...

[Khabarakh]

Zitat von s.h.a.r.k:

Allgemein zu den Methoden (keine Funktionen!)

"Methode" ist ja noch falscher ( ) als "Funktion".

[Nicodius]

Zitat:

erniedrigen

ist wohl eine etwas ärgere auslegung - ich würd verringern sagen

[inherited]

ooouuups, jetzt wo dus sagst... stimmt
naja dann halt
Objekt.Left:=Objekt.Left+1;

[Airblader]

Zitat von Z32:

Ist das so gemint ???

inc(Objekt.left) = heißt also ojekt 1 nach links
dec(objekt.left) = heißt also objekt 1 nach rechts

Nein.
Wird Objekt.Left erhöht, heißt das, dass es nach Rechts wandert.
"Left" gibt nämlich den Abstand zum linken Rand d. übergeordneten Controls (in diesem Fall wohl die Form) an
Wird dieser größer wandert es logischerweise nach rechts.

air

[Z32]

Also erst mal vielen Dank für die Antworten, habe mir jetzt nen kleines Programm geschrieben wo ein Bild immer nach rechts fährt. Dann habe ich mir gedacht, lass das Bild doch einfach nach links fahren, wenn es rechts an den Rand stößt. Da habe ich jetzt ein Problem, das Bild rollt nach rechts und bleibt dort am Rand hängen.

Ich habe denn folgenden Code in einem On-Timer Ereignis.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var f: integer;
begin
f:= 10 ;

if image1.left + f < form1.ClientWidth then
image1.left := image1.Left +f

else image1.Left := image1.Left -f;
end;

Weiß vielleicht einer was ich falsch gemacht habe ???

[Ratte]

Ist doch klar: du prüfst ob das Bild am Fensterrand ist. wenn es dass ist lässt du es in die gegenrichtung laufen. Dann ist es aber nichtmehr am fensterrand-->es läuft wieder in richtung Fensterrand. Du müsstest f global deklarieren und wenn es am Fensterrand ist einfach f:=-f; sagen. Dann ändert es die Richtung dauerhaft.

[Z32]

Zitat von Ratte:

Ist doch klar: du prüfst ob das Bild am Fensterrand ist. wenn es dass ist lässt du es in die gegenrichtung laufen. Dann ist es aber nichtmehr am fensterrand-->es läuft wieder in richtung Fensterrand. Du müsstest f global deklarieren und wenn es am Fensterrand ist einfach f:=-f; sagen. Dann ändert es die Richtung dauerhaft.

Also das habe ich jetzt leider nicht verstanden, was ist falsch und muss geändert werden ???

[xZise]

Delphi-Quellcode:

private
  f : Integer;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  f := 10;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Image1.left + f > Form1.ClientWidth - Image1.Width then
    f := -10;
  else if Image1.left - f < 0 then
    f := 10

  image1.Left := image1.Left + f;
end;

Erklärung: Das Bild wandert 1x nach links! Dann ist es wieder weg von Rand und d.h. das Bild kommt wieder nach rechts

[inherited]

Sorry bin im verbesserungswahn
So ist es flexibler

Delphi-Quellcode:

private
  f : Integer;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  f := 10;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Image1.left + f > ClientWidth - Image1.Width) or (Image1.left - f < 0) then f := -f;
  image1.Left := image1.Left + f;
end;