Forum: Object-Pascal / Delphi-Language
by Coxy,
4. Mai 2011
Vielen Vielen Dank
es klappt jetzt eiwandfrei :)
Forum: Object-Pascal / Delphi-Language
by Coxy,
4. Mai 2011
das mit den Punkten habe ich behoben.
Allerdings verstehe ich meinen Fehler immer noch nicht :(
If (richtung=1) and (img_Stern.Top + img_Stern.Height + 50 > form1.Height) then Richtungstern :=2;
If (richtung=2) and (img_Stern.Left + img_Stern.Width + 50 > form1.Width) then Richtungstern :=3;
If (richtung=3) and (img_Stern.Top < 50) then Richtungstern := 4;
If (richtung=4) and...
Forum: Object-Pascal / Delphi-Language
by Coxy,
1. Mai 2011
ich habs mal hochgeladen:
https://rapidshare.com/files/460077507/Delphi_Project.rar
gruß
Forum: Object-Pascal / Delphi-Language
by Coxy,
30. Apr 2011
ich benutze ein sehr altes delphi (6)
und bin irgendwie immer noch nicht weiter gekommen bei dem Problem.
gibt es sonst irgendwelche Lösungs-Ansätze?
Grüße
Forum: Object-Pascal / Delphi-Language
by Coxy,
29. Apr 2011
nachti, ich verstehe leider nicht was du mir sagen willst.
@Rest
ich habe schon eine case Struktur für die Richtung siehe hier
case Richtungstern of
1: Begin
img_Stern.Top := img_Stern.Top + 1;
img_Stern.Left := img_Stern.Left + 1;
end;
Forum: Object-Pascal / Delphi-Language
by Coxy,
29. Apr 2011
Hallo,
ich habe ein Problem: und zwar bewegen sich meine Figuren manchmal durch die wand obwohl mein script das verbietet Oo
das passiert nur manchmal aber es trotzdem nervig. Weiß jemand vielleicht woran das liegt?
Der Script ist
If (richtung=1) and (img_Stern.Top + img_Stern.Height + 100 > form1.Height) then Richtungstern :=2;
If (richtung=2) and (img_Stern.Left + img_Stern.Width + 100 >...