结果：

1.只能截取程序界面内的图片。

2.图片有点不清楚，自己设置清楚度。

 

实例代码：

1 unit Unit1; 2  3 interface 4  5 uses 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, 8   FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.Layouts; 9 10 type11   TForm1 = class(TForm)12     Label1: TLabel;13     Button1: TButton;14     Image1: TImage;15     Layout1: TLayout;16     procedure Button1Click(Sender: TObject);17   private18     {
     Private declarations }19   public20     {
     Public declarations }21   end;22 23 var24   Form1: TForm1;25 26 implementation27 uses28   FMX.Platform; //需要引入29 {
    $R *.fmx}30 {
    $R *.NmXhdpiPh.fmx ANDROID}31 32 function MakeScaleScreenshot(Sender: TControl): TBitmap;//截取屏幕函数33 var34   fScreenScale: Single;35   function GetScreenScale: Single;36   var37   ScreenService: IFMXScreenService;38   begin39     Result := 1;40     if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then41     begin42       Result := ScreenService.GetScreenScale;43     end;44   end;45 begin46   fScreenScale := GetScreenScale;47   Result := TBitmap.Create(Round(Sender.Width * fScreenScale), Round(Sender.Height * fScreenScale));48   Result.Clear(0);49   if Result.Canvas.BeginScene then50   try51     Sender.PaintTo(Result.Canvas, RectF(0, 0, Result.Width, Result.Height));52   finally53     Result.Canvas.EndScene;54   end;55 end;56 57 procedure TForm1.Button1Click(Sender: TObject);58 var59   oBitmap: TBitmap;60 begin61   oBitmap := MakeScaleScreenshot(Layout1);//此处Layout1为所有容器的容器62   Image1.Bitmap.Assign(oBitmap);63   oBitmap.DisposeOf;64 end;65 66 end.