Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ImSun.Visible And not ImMoon.visible then // Wemm Sonne aber kein Mond
begin
ImSun.Visible:=False; // dann Sonne aus und Mond an
ImMoon.Visible:=true;
end
else
begin
if ImMoon.visible And Not ImSun.visible then // Wenn Mond aber kein Sonne
begin
ImSun.Visible:=True; // dann Sonne an und Mond bleibt an
end
else
begin
if ImMoon.visible And ImSun.visible then // Wenn beide sichtbar
begin
ImMoon.Visible:=False; // Dann Mond aus
end
end
end
end;
end.
So wie Du es gemacht hast passiert folgendes:
1. Wenn Sonne an und Mond aus, dann Sonne aus und Mond an.
2. Wenn Mond an und Sonne aus, dann Sonne an und Mond bleibt an.
3. Wenn Mond an und Sonne an, dann Mond aus und Sonne bleibt an.
Was ist jetzt genau Dein Problem ?