[angvelem]

Как вариант

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

var   bmpMain, bmpBut, oldBmp : hBitmap;   dc, ccdc : HDC;   Count : Integer;   function MesPro(Handle: HWND; Msg: UINT; WParam: Integer; lParam: Integer): Integer;stdcall; var   ps: PAINTSTRUCT; begin   Result:=0;   case msg of     WM_CREATE:     begin       dc := GetDC(0);       ccdc := CreateCompatibleDC(dc);       bmpBut := LoadRes(hInstance,'button_next','PNG');//Загрузка *.RES       OldBmp := SelectObject(ccdc, bmpBut);       SetTimer(Handle, 1, 100, NIL);     end;           WM_TIMER :     begin       inc(Coount);       if Count > 8 then         Count := 1;       bmpBut := LoadRes(hInstance, 'button_next', IntToStr(Count) + 'PNG');//Загрузка *.RES       SelectObject(ccdc, bmpBut);       InvalidateRect(Handle, NIL, False);     end;       WM_PAINT:     begin       BeginPaint(Handle,ps);       BitBlt(ps.hdc,414,383,34,34,ccdc,0,0,SRCCOPY);       EndPaint(Handle,ps);     end;       WM_DESTROY:     begin       KillTimer(Handle, 1);       DeleteObject(SelectObject(ccdc, OldBmp));       DeleteDC(ccdc);       ReleaseDC(0, dc);       PostQuitMessage(0);       Exit;     end;   end;   Result:=DefWindowProc(Handle,Msg,WParam,LParam); end;