Ich wollte ne "Ampelschaltung" als Übung machen, also 4 Images, 3 unsichtbar und 1 sichtbar.
Nun moechte ich das das image 1(rot) unsichtbar wird und das image 2(Rot/Gelb)sichtbar wird.
Danach(ein weiterer click auf den Button) soll das Image2 unsichtbar werden und Image3(Grün) soll erscheinen.
Danach soll Image 3 unsichtbar und Image4(gelb) sichtbar werden. Ein weiterer Click soll das Image 1 wieder sichtbar und Image4 unsichtbar machen.
Falls ihr das nicht verstanden habt(ein bischen unübersichtlich, ich weiß)
hier der Source mit If Then Else
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ImRed.visible=True then
begin
ImRed.visible:=False;
ImRY.visible:=True;
end
else
begin
if ImRY.visible=True then
begin
ImRY.visible:=False;
ImGreen.visible:=True;
end
else
begin
if ImGreen.visible=True then
begin
ImGreen.visible:=False;
ImYellow.visible:=True;
end
else
begin
if ImYellow.visible=True then
begin
ImYellow.visible:=False;
Imred.visible:=True;
end
end
end
end
Hoffe du kannst damit was anfangen.