안녕하세요. 최용일입니다.



패스가 잘못된거 같네요...



^^ 항상 즐코하세요...



왕초보 wrote:

> 여러번 관련글들을 올렸는데..도무지 답이 나오질 않아서요..

> 동적생성한 이미지를 다음과 같이 배열의 형태로 받을 수는 없는건가요?

> 한 분이 도움을 주셨는데 아래와같이 코딩하면 아무일도 발생하지 않아요.

>

> 똑같은 비트맵파일을 가진 이미지를 컨트롤이 가능해야하거든요..

> 버튼을 누르면 새로 컴포넌트를 생성시키고(수십개), 그 각 객체들을 언제든지 이동,삭제가 가능해야하기

동적 배열의 사용법을 말씀하시는것 같군여....

동적배열을 사용하면 갯수의 제한이 없게 되죠...

var

Station:Array of TImage;

i:integer;

...



procedure TfrmNetworks.btnClick(Sender: TObject);

begin

//Image 동적 생성



SetLength(Station,i+1);



Station[i]:=Timage.create(self);

Station[i].Picture.LoadFromFile('icon5icon.bmp');

Station[i].Visible :=true;

Station[i].Width :=14;

Station[i].Height :=14;

Station[i].left :=100;

Station[i].Top :=100;

Inc(i);

end;

이렇게 하면 됩니다..

제가 질문을 잘못 이해했나여..?

그렇다면.. 지송.

그럼 20000





왕초보 wrote:

> 여러번 관련글들을 올렸는데..도무지 답이 나오질 않아서요..

> 동적생성한 이미지를 다음과 같이 배열의 형태로 받을 수는 없는건가요?

> 한 분이 도움을 주셨는데 아래와같이 코딩하면 아무일도 발생하지 않아요.

>

> 똑같은 비트맵파일을 가진 이미지를 컨트롤이 가능해야하거든요..

> 버튼을 누르면 새로 컴포넌트를 생성시키고(수십개), 그 각 객체들을 언제든지 이동,삭제가 가능해야하기

최용일님이 가르쳐주신대로 넣었는데두 아무일도 안일어나요..

큰일입니다요...

도대체 뭐가 문제인지..말입니다...흑흑...

패스문제도 아니에요..

Statoin[i]배열에 일반변수로 삽입하면 원하는 결과가 잘 나오거던요..





procedure TfrmNetworks.SbtnOfficeClick(Sender: TObject);

begin

//Image 동적 생성

//SetLength(Station,i+1); //일단 배열의 크기를 설정한다....

// 새로 생성될때마다 하나씩 증가 시키줌...

Station[i]:= TImage.Create(Self); //이미지를 생성한다.

Station[i].Parent := Self; // 요걸 꼭 해주어야 한다.

Station[i].Picture.LoadFromFile('icon5icon.bmp');

Station[i].Visible :=false;

Station[i].Width :=14;

Station[i].Height :=14;

Station[i].left :=100;

Station[i].Top :=100;

Station[i].Visible :=true;

InsertComponent(Station[i]);

i:=i+1;



end;