아래 소스는 자료실에 Black}{ole 님이 올리신 글입니다..



님이 하실려는게 이거 맞나 모르겠네여...



/////////////////////////////////////



Application에 Icon을 움직이게 하기



var

icon1:Boolean;





...





procedure TForm1.Timer1Timer(Sender: TObject);

begin

if icon1=false then

begin

Application.icon:=Image1.Picture.Icon;

icon1:=true;

end

else

begin

Application.icon:=Image2.Picture.Icon;

icon1:=false;

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

icon1:=true;

end;





왕초보 wrote:

> 제가 만든 폼에 움직이는 아이콘을 어떻게 가져다 놓고 움직이게 하죠?

> 팁모아 강의실, Q&A를 모두 뒤져도 응용 할 수가 없네요.

> 혹시 아시는분 너무 초보적인 것이라 혼자 해결 못 한다고 나무라지 마시고

> 알려 주시면 감사 하겠습니다.

>

> 설 연휴 모두들 휴식들을 갖을 수 있기르 바랄께요.

//

..님 감사 합니다.

팁모아의 내용들을 검색해서 기본적인 것은 되었는데....

제가 원하는것은 외부에서 다운받은 이쁜 움직이는 아이콘들 있자나요

이것들을 어떻게 폼에 위치시켜 움직이게 하느냐는 것이거든요.

폼에 가져다 놓으면 저절로 움직 일 것 같은데...

이미지를 가져다 놓고 그 아이콘을 불러오면 될 것 같은데

아이콘을 갔다 놓는 방법을 몰르겟어요....

이미지의 인스펙터의 픽처 읽어 오는 것두 아니구...