Bilderschleife

[Bellla]

Hallo, habe ein Problem
Ich möchte ein auge als anfangsbild es gibt mehrere Buttons.
fangen wir mit dem ersten an. drückt man den ersten button sollen fotos kommen.
drückt maneinen anderen button erscheinen andere bilder
ich habe so angefangen

Code:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
if status=0 then
            begin
            for i:=0 to 1000 do ;
            image2.visible:=true;
            if image2.Visible  then

            begin;
            image1.visible:=false;
            status:=1;
            exit;
            end;
            end


            else if status=2 then
            begin
            for i:=0 to 1000 do ;
            if image3.Visible  then

            begin;
            image2.visible:=false;
            status:=2;
            end;
            end



            else if status=3then
            begin
            for i:=0 to 1000 do ;
            if image4.Visible  then

            begin;
            image3.visible:=false;



            status:=4;
            exit;
            end;


end;
end;

end.

ich komme nicht weiter

[mkinzler]

Was soll des passieren? So funktioniert es jedenfalls nicht!
Und rücke mal deinen Code richtig ein, so dass du siehst welcher Code jeweils einen Block bildet

[Bellla]

hätte ich ne ahnung von sowas...wie geht es dann??

[mkinzler]

Wie geht was?

[Bellla]

das was ich machen will also man hat ein anfangsbild sagen wir image1
ich habe jetzt da 5 buttons drauf.
auf jeden button möchte ich ungefähr 3 bilder unterbringen. wenn ich button1 drücke kommen die ersten 3 bilder, wenn ich jetzt den button2 drücke verschwinden die 3 bilder und es kommen 3 neue.



bitte hilf mir es ist so wichtig. ich kann das nicht

[mkinzler]

Ich würde Case satt der verschachtelten Ifs nehmen.

Delphi-Quellcode:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
    case status of
        0:
        begin
            sleep ( 500); //Halbe Sekunde
            image2.visible:=true;
            //if image2.Visible then -> überflüssig, weil du dies ja gerde explizit gemacht hast
            image1.visible:=false;
            status:=1;
        end;
        2:
        begin
            sleep(500);
            image2.visible:=false:
            status:=2;
        end;
        ...
    end;
end;

end.

[Namenloser]

Okay, fangen wir mal vorne an: for i:=0 to 1000 do ; Was zur Hölle ist das? Eine Schleife, die 1001x nichts ausführt? Weißt du überhaupt, was du da machst?

Außerdem ist deine Problembeschreibung absolut unpräzise. Beschreibe doch mal klar und deutlich, was du willst, und was stattdessen passiert. Und zwar so, dass jemand, der keine Vorahnung hat, es versteht. Schließlich willst du, dass andere dir helfen -- da ist es ja wohl das mindeste, sich wenigstens bei der Problembeschreibung Mühe zu geben. Vor allem wenn es "so wichtig11!1™" ist.

[implementation]

Zitat von NamenLozer:

? Eine Schleife, die 1000x nichts ausführt?

1001x

Ich vermute mal, das soll eine Verzögerung bewirken. Deshalb hat mkinzler ja Sleep(500) draus gemacht.

[Bellla]

also nochmal. ich brauche ein projekt über mich selbst.
ich habe fotos aus meiner kindheit....
ich habe angefangen indem ich ein bild von einem auge reingemacht habe. das soll der einblick in mein leben sein.
auf diesem auge sieht man 5 buttons.
drücke ich einen dieser buttons sollen 3 neue bilder erscheinen, also muss das auge weg sein.
ich muss auch i-wie zum auge zurückkommen per klick.
wenn ich jetzt ein anderes button drücke kommen 3 neue bilder.
wie diese bilder erschein könnt ihr euch aussuchen.
gruß

[Namenloser]

Wie sollen die 3 Bilder denn erscheinen? Untereinander, nebeneinander, übereinander, hintereinander...?