Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Brauche Programmier-Code!

  Alt 1. Okt 2004, 18:24
hallo und herzlich willkommen in der DP !

du musst erstmal eine variable definieren, die die richtung angibt. sie ist vom typ integer.
1 bedeutet dann nach links, -1 bedeutet ach rechts.
im OnTimer-Ereignis fragst du vor dem verschieben die aktuelle position der wolke ab. wenn sie am rand ist, dann wird die richtung umgedreht.

so sollte es funktionieren:

Delphi-Quellcode:
var direction: integer;

{...}

//onTimer-Ereignis:
begin
  if (wolke.left = 0) or (wolke.left = form1.clientwidth-wolke.width) then
    direction := direction * -1;

  wolke.left := wolke.left + 10*direction;
end;
edit: oh mein gott... dieser titel... "45 Jahre alte frau mit auto erschlagen!"
edit2: was soll das mit dem titel???

Aenogym
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat