Deutsches Lazarusforum

also ich habs jetzt so gemacht
procedure TForm1.Button1Click(Sender: TObject);
begin

if (Shape1.brush.color=clred) and (Shape2.brush.color=clwhite)
then
begin
Shape1.brush.color:=clwhite ;
Shape2.brush.color:=clyellow ;
end
else
if (Shape2.brush.color=clyellow) and (Shape1.brush.color=clwhite ...

Willst du nicht lieber ein Status-Flag halten? Den Zustand über die Farben zu erkennen ist doch ein bisschen verwirrend oder?
leider weiß ich nichteinmal was ein Status Flag überhaupt ist :oops:

Statt die Farben zu vergleichen, könntest du eine Variable halten, welche den Status speichert.
Das ...

theo hat geschrieben:Willst du nicht lieber ein Status-Flag halten? Den Zustand über die Farben zu erkennen ist doch ein bisschen verwirrend oder?

leider weiß ich nichteinmal was ein Status Flag überhaupt ist

jetzt hab ich's so:
if Shape1.brush.color=clred then
begin
Shape1.brush.color:=clwhite ;
Shape2.brush.color:=clyellow ;
end
else
if Shape2.brush.color=clyellow then
begin
Shape2.brush.color:=clwhite ;
Shape3.brush.color:=clgreen ;
end
else
if Shape3.brush.color=clgreen then
begin
Shape3.Brush.color ...

Christian hat geschrieben:In welcher Schule bist du ?

du hast ne pn

@hanibal vielen Dank

Hallo,
ja also ich bin ein vollständiger Anfänger was programmieren angeht, also entschuldigt meine vielleicht dämliche Frage.
Jedenfalls haben wir in der Schule mit Pascal bzw. mit Lazarus begonnen und sollten nun eine Ampel programmieren. Ich hab mir zu Hause das Porgramm geholt und wollte das ...