|
Muy útil lo descrito Neftali, me ha sido de buena utilidad.
Ya resolvi el problema. Era muy sencillo, pero lo estaba enfocando mal.
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if (num < 3) then
begin
num:=num+1;
image1.Picture.LoadFromFile('imatges/' + inttostr(num) +'.jpg');
end;
if (num=3) then
begin
num:=0;
end;
end;
|