Programm macht nicht was es soll!!!

[sakura]

Hm, versuche mal folgenden Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ImSun.visible and ImMoon.visible then
  begin                    //Sonne und Mond sind sichtbar
    ImMoon.Visible:=False; //mond wird unsichtbar
                           //Sonne bleibt sichtbar
  end
  else if ImSun.visible then
  begin                    //Sonne ist sichtbar
    ImSun.Visible:=False;  //Sonne unsichtbar
    ImMoon.Visible:=true;  //Mond sichtbar
  end
  else if ImMoon.visible then
  begin                    //Mond ist sichtbar
    ImSun.Visible:=True;   //Sonne wird sichtbar
                           //Mond bleibt sichtbar
  end
  else
  begin                    //Sonne und Mond sind unsichtbar
    ImSun.Visible:=True;   //Sonne sichtbar
    ImMoon.Visible:=true;  //Mond sichtbar
  end
end;

end.

......