AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Programm macht nicht was es soll!!!

Ein Thema von SimOr · begonnen am 16. Okt 2003 · letzter Beitrag vom 16. Okt 2003
 
Benutzerbild von Darty
Darty

Registriert seit: 8. Jun 2002
Ort: Kronau
731 Beiträge
 
#5

Re: Programm macht nicht was es soll!!!

  Alt 16. Okt 2003, 15:03
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 ?
Matthias Knebel
Mfg M. Knebel [-Darty-]
- Gehörlose Delphianer gibt es selten -
www.team-knebel.de
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz