Q&A

  • tray icon을 바꾸려면?
tray icon을 프로그램 실행 도중에 바꾸려면 어케합니까?

일반적인 방법으로는 안바뀌네요...

예를 들어 평상시는 검정색 아이콘으로 하다가

활성화 시키면 적으로 하고 싶고든요고소님의 조언을 부탁

1  COMMENTS
  • Profile
    정성훈 2001.07.29 05:38
    안성혁 wrote:

    > tray icon을 프로그램 실행 도중에 바꾸려면 어케합니까?

    > 일반적인 방법으로는 안바뀌네요...

    > 예를 들어 평상시는 검정색 아이콘으로 하다가

    > 활성화 시키면 적으로 하고 싶고든요고소님의 조언을 부탁



    안녕하세요

    이렇게 한번 해보세요.

    만약 일정한 시간이 될때 바뀌게 하시려면 Timer 이벤트에서 하시면 됩니다.

    그럼 20000.



    var

    iconData : TNotifyIconData;



    procedure TForm1.Button1.Click(Sender: TObject);

    begin

    if (IconData.hIcon = Image1.Picture.Icon.Handle) then

    IconData.hIcon:= Image2.Picture.Icon.Handle

    else

    IconData.hIcon:= Image1.Picture.Icon.Handle;



    Shell_NotifyIcon(NIM_Modify, @IconData);

    end;