Programm macht nicht was es soll!!!

**SimOr**

Hi Leute, ich bins wieder, und...richtig, ich habe wieder ein neues problem für euch mitgebracht!!!
ich wollte ein prog machen, das je nach bedingung wieder mal images sichtbar macht.....
Die Bedingungen dafür sind, dass die kriterien mit and verknüpft seien sollen....

hier mal mein bisheriger Source Code.....es funzt fast alles, keine fehlermeldungen usw....

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

if ImSun.visible=True And ImMoon.visible=False then  // Falls Sonne

   begin                        //sichtbar und Mond unsichtbar

   ImSun.Visible:=False;        //Sonne unsichtbar und

   ImMoon.Visible:=true;        //Mond sichtbar machen

   end

else                            //Falls nicht

   begin

   if ImMoon.visible=True And ImSun.visible=False then  //mond Sichtbar

      begin                     //und Sonne unsichtbar

      ImSun.Visible:=True;      //Sonne wird sichtbar

                                //Mond bleibt sichtbar

      end

   else                         //Falls nicht

      begin

      if ImMoon.visible=True And ImSun.visible=True then //Mond UND

         begin                  //Sonne sichtbar

         ImMoon.Visible:=False; //mond wird unsichtbar

                                //Sonne bleibt sichtbar

         end

      end

    end

end;

end.

Und jetzt kommt das Aber.......
Wenn der mond sichtbar und die sonne unsichtbar geworden sind sollten ja beide "scheinen"*g*...das bleibt aber aus!

Ich habe darüber nachgedacht und zur hilfe sogar diese schönen comments dahinter geschrieben, aber irgendwo in dem Source verweigert was seinen dienst....
Bitte postet was, falls ihr was wisst!!!
Simor

Programm macht nicht was es soll!!!

Programm macht nicht was es soll!!!

Forumregeln