Programm macht nicht was es soll!!!

[himitsu]

Das Prog macht genau das was du ihm gesagt hast.

den so hast du's geschrieben:

Delphi-Quellcode:

if ImSun.visible = True and ImMoon.visible = False then
if ImMoon.visible = True and ImSun.visible = False then
if ImMoon.visible = True and ImSun.visible = True then

und so setzt Delphi die Klammern:

Delphi-Quellcode:

if ((ImSun.visible = True) and ImMoon.visible) = False then
if ((ImMoon.visible = True) and ImSun.visible) = False then
if ((ImMoon.visible = True) and ImSun.visible) = TruE then

wenn du schon auf diese Weise schreiben willst, solltest du die Klammern nicht vergessen:

Delphi-Quellcode:

if (ImSun.visible = True) and (ImMoon.visible = False) then
if (ImMoon.visible = True) and (ImSun.visible = False) then
if (ImMoon.visible = True) and (ImSun.visible = True) then