TSpeedButton에서 GIF를 표시하는 방법

Question

내 이전에 질문 사항; How do I display two images consecutively like a gif?, 나는 gif을 만들 수 있다고 들었습니다.

여기 내 이유가 있습니다 : tspeedbutton는 나를위한 .gif 확장을 허용하지 않습니다.

어떻게 추가 할 수 있습니까?

btnNotification.Glyph.LoadFromFile(ICON_DIR + '/notification-active.gif'); 

나는 봤지만 델파이로 인해 문서를 찾을 수 없습니다.

안녕하세요

은, 사실은 내가 알림 버튼을 만들려고하고 있습니다. 알림이 없으면 해당 이미지는 notification.bmp이지만 알림이 있으면 tspeedbutton의 gif 여야합니다. 타이머를 추가하고 서버를 폴링 할 때 알림 메시지가 표시됩니까? 6 초마다, 만약 그렇다면 내가 tspeedbutton에 bmp 이미지를 변경해야합니다.

Answer 1

깨끗한 방법으로 이것을하기 위해 새로운 구성 요소를 만드는 것이 좋습니다. 운 좋게도 TSpeedButton이고 그것의 Glyph 속성으로 TPicture의 모든 유형을 허용하는 구성 요소, 우리가 무엇을해야 모두가

는 그래서 TNCRSpeedButton의 단위를 복사합니다 GIF 된 경우 문양을 애니메이션을 수정하는 것입니다있다 허용 된 대답에서 here

다음 절차로 이동하여 코드에 줄을 추가하거나이 절차를 해당 줄로 바꿉니다.

procedure TNCRSpeedButton.GlyphChanged(Sender: TObject); 
begin 
    if (FGlyph.Graphic <> nil) and (not FGlyph.Graphic.Empty) then 
    begin 
    FGlyphCoordinates.OnChange := nil; // Prevent multiple invalidates 
    FGlyphCoordinates.X := (Width - FGlyph.Graphic.Width) div 2; 
    FGlyphCoordinates.Y := (Height - FGlyph.Graphic.Height) div 2; 
    FGlyphCoordinates.OnChange := CoordinatesChanged; 
///// add these lines here /////////////////////////////////// 
    if (FGlyph.Graphic is TGifImage) then 
     begin 
     (FGlyph.Graphic as TGifImage).Animate := True; 
     end; 
////////////////////////////////////////////////////////////// 
    end; 
    Invalidate; 
end; 

이제 구성 요소의 문양 그것을 애니메이션 것 같은 TGIFImage을 받았다 때.