먼저 이미지를 어떻게 사용할 것인가...
이점을 알아야 쉽게 설명할 텐데요..
두가지 방법을 생각해 볼 수 있습니다.
(뭐, 방법이야 많겠지만.. 본 질문에서 다루는 것만 살펴보면요..)
첫번째는 이미지 컨트롤 자체를 배열로 해서 실행시
생성해서 사용하는 방법입니다. (질문 그대로를 이해하면요...)
아래의 예는 이미지 컨트롤 하나, 두개의 버튼이 있는 하나의 폼입니다.
var
Form1 : TForm;
ImageArray : array [1..xx] of TImage; --- A
NextImage : integer;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 1 to xx do
ImageArray [i] := TImage.Create (self); --- B
NextImage := 1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1 := ImageArray [NextImage]; --- C
INC (NextImage);
if NextImage > 10 then NextImage := 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
for i := 1 to 10 do
ImageArray [i].Picture.LoadFromFile ('a' + intToStr (i) + '.bmp');
--- D
end;
위 경우는 해당 폴더에 a1.bmp ... a10.bmp 가 있어야 되겠죠..
그러나 위의 경우는 합리적이죠 못하죠..
그래서 두번째 방법은 Bitmap을 사용하는 것입니다.
Image 컨트롤의 Picture 프로퍼티 아래에 보면 Bitmap 이라는 프로퍼티가 있습니다.
저는 Bitmap을 자주 사용 합니다.
그래서 위의 A, B, C, D를 ...
BitmapArray : array [1..xx] of TBitmap; --- A
BitmapArray [i] := TBitmap.Create; --- B
Image1.Picture.Bitmap := BitmapArray [NextImage]; --- C
ImageArray [i].LoadFromFile ('a' + intToStr (i) + '.bmp'); --- D
도움이 되셨나 모르겠군요...
그럼...
|