j'aimerai simplifier le bout de code ce-dessous par une fonction, je pensais passer en paramètre le nom de l'image exemple "Ouverture(img1_v);" mais ensuite je ne sais pas comment récupérer ceci, je le sais en coldfusion mais délphi je sèche .
Quelqu'un peu m'aider ?
begin
img1_v.Visible:=false;
img1_o.Visible:=true;
end;
begin
img2_v.Visible:=false;
img2_o.Visible:=true;
end;
begin
img3_v.Visible:=false;
img3_o.Visible:=true;
end;
etc etc....
begin
for N := 0 to 5 do
Imgs[N].Visible := not Imgs[N].Visible;
end;
procedure SetVisibilityOf(const Index : integer) ;
begin
case Index of
0..2 : begin Imgs[index].Visible := true; Imgs[index+3].Visible := false; end;
3..5 : begin Imgs[index].Visible := true; Imgs[index-3].Visible := false; end;
end;
end;