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
