제가 팁란에서 블랙홀님의 아래와 같은 팁을 보았습니다.
근데 초보는 가르쳐 주어도 못합니다. 윽...서럽당...
팁] Application에 Icon을 움직이게 하기
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;
내 어플에 어떻게 움직이는 아이콘을 가져다 놓을수 있나요??
정지해 있는 아이콘 두개를 번갈아가면서 뜨게 만들어서 움직이는 아이콘처럼 보이게 만드는 소스네요..