Saludillos a todos, a ver si alguien me puede ayudar. He hecho como un mapa (para un juego) con TImage, pero en vez de ponerlo entero lo he partido en 25 partes para tener que encontrarlas. Entonces he hecho un Array [1..25] of TImage y el código es este:
Código Delphi
[-]
Var
I,x,y: Integer;
Begin
X:=0;
y:=0;
For I:=1 to 25 Do
Begin
Mapa[i]:=Timage.Create(Form1);
Mapa[i].Picture.LoadFromFile('Trozo ' + IntToStr(i) + '.bmp');
Mapa[i].Visible:=true;
Mapa[i].Left:=y;
Mapa[i].Top:=x;
y:=y + 480;
If Y = 480 * 5 then
Begin
X:=x + 320;
Y:=0;
End;
End;
End;
Cada imagen mide 480 por 320, y hay 5 trozos por 5 trozos. El problema es que no aparece ninguna imagen, supongo que por no crear correctamente las imágenes. No hay ningún error/warning/hint al correr la aplicación.
PD: Las imágenes las destruyo al cerrar la aplicación.