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....
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