Left vergleichen

henny · Beiträge: 126

Hallo zusammen,
ich bin gerade dabei ein Programm zu schreiben bei dem man unteranderem ein Label mit den Pfeiltasten bewegegen kann.
Doch wenn man das Programm startet und das label dann bewegt kann man es auch aus dem Formular bewegen.
Jetzt möchte ich vergleichen ob left vom label 5 ist.
Wenn das der Fall ist dann soll left vom label 5 sein.
Das ganze wied mit 2 timern gesteuert die sich mit 1. Interval immer wieder selbst starten.
Das habe ich so zusammengefasst:

markieren

Delphi-Quelltext

1:
2:

if label1.left = 5 then
label1.left := 5;

Aber irgendwie kann man immernoch aus dem Bildschirm rausfahren.
Wieso?
Und wie kann ich den Fehler beheben?

Moderiert von Christian S.: Delphi-Tags hinzugefügt

elundril · Verfasst: So 05.07.09 16:08

ich nehm an, nach der abfrage setzt du das label1.left := label1.left -1;

das darfst du aber nicht.
am besten du machst es so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

if label1.left < 5 then
  label1.left := 5
else begin
  das zeugs das er machen soll wenn left größer als 5 ist
end;

lg elundril

Moderiert von Christian S.: Delphi-Tag repariert

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

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

markieren

Delphi-Quelltext

1:
2:

if label1.left = 5 then
label1.left := 5;

Wie schon des öfteren angesprochen dir fehlen einfach die Grundlagen, sonst würdest du sehen was daran falsch ist.
5 Äpfel bleiben 5 Äpfel und werden nicht zu Birnen. :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme