Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[2825] [답변] 시그마/ [델파이] 컨트롤배열사용법
caneasy [ ] 2107 읽음    1998-05-18 00:01

   먼저 이미지를 어떻게 사용할 것인가...
   이점을 알아야 쉽게 설명할 텐데요..
   두가지 방법을 생각해 볼 수 있습니다.
   (뭐, 방법이야 많겠지만.. 본 질문에서 다루는 것만 살펴보면요..)

   첫번째는 이미지 컨트롤 자체를 배열로 해서 실행시
   생성해서 사용하는 방법입니다. (질문 그대로를 이해하면요...)
   아래의 예는 이미지 컨트롤 하나, 두개의 버튼이 있는 하나의 폼입니다.

   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

   도움이 되셨나 모르겠군요...
   그럼...
   


+ -

관련 글 리스트
2825 [답변] 시그마/ [델파이] 컨트롤배열사용법 caneasy 2107 1998/05/18
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.