Hallo.
Ich habe ein klienes Problem. ich habe ein programm geschrieben, auf dem man mehrere Buttons hat.
wenn man button1 drückt kommt ein bild, drückt man button1 nochmal kommt ein anders bild.
ich habe hier eine Bilderschleife verwendet. Nach dem letzten bild kommt das startbild. Button1 ist nun verschwunden, man sieht nun button2.
wenn man button2 drückt sollen jetzt wie bei button1 fotos kommen.
ich habe genau das selbe verfahren angewendet, jedoch kommt kein Bild wenn ich Button 2 drücke.
Hier der Quelltext
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
B1: TButton;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
B2: TButton;
B3: TButton;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
procedure B1Click(Sender: TObject);
procedure B2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
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:=2;
end;
2:
begin
sleep(500);
image3.visible:=true;
image2.visible:=false;
status:=3;
end;
3:
begin
sleep(500);
image4.visible:=true;
image3.visible:=false;
status:=4;
end;
4:
begin
sleep(500);
image1.visible:=true;
image4.visible:=false;
status:=5 ;
B2.visible:=true;
B1.Visible:=false;
end;
end;
end;
procedure TForm1.B2Click(Sender: TObject);
begin
case status
of
0:
begin
sleep ( 500);
image5.visible:=true;
image1.visible:=false;
status:=2;
end;
2:
begin
sleep(500);
image6.visible:=true;
image5.visible:=false;
status:=3;
end;
3:
begin
sleep(500);
image7.visible:=true;
image6.visible:=false;
status:=4;
end;
4:
begin
sleep(500);
image8.visible:=true;
image7.visible:=false;
status:=5 ;
B2.visible:=true;
B1.Visible:=false;
end;
end;
end;
end.
ich hoffe ich habe diesmal alles richtig gemacht.
danke im vorraus
Zitat
Baum-Darstellung
