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.

[Bellla]

ich versuchs mal danke

[Bellla]

ich hab jetzt

Code:

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

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
 case status of
        0:
begin
sleep ( 500);
image2.visible:=true;
image1.visible:=false;
status:=1;
end;

2:
begin
sleep(500);
image2.visible:=false;
image3.visible:=true;
status:=2;
end;

3:
begin
sleep(500);
image3.visible:=false;
image4.visible:=true;
status:=3;

end;

end;
end;
end.

aber nach wenn das 2. bild erscheint und man nochmal drückt passiert nichts warum?

[implementation]

Dann passiert doch was. Allerdings das gleiche wie beim ersten Drücken, weil der Status gleich ist.

[Bellla]

nein es bleibt beim 2.bild :( was soll ich machen