MakeScreenshot 用于动态创建的控件

Question

我需要动态地将创建的控件绘制到位图。

但它不起作用，它不绘制任何东西。

procedure TForm2.Button1Click(Sender: TObject);
var
  cb: TCheckBox;
  BMP: TBitmap;
begin
  BMP:= nil;

  cb:= TCheckBox.Create(nil);
  try
    cb.IsChecked:= true;
    cb.Repaint;
    BMP:= cb.MakeScreenshot;
    BMP.SaveToFile('C:\bmp.bmp');
  finally
    FreeAndNil(cb);
    FreeAndNil(BMP);
  end;
end;

我也直接尝试过PaintTo - 但效果相同。我也试过设置parent，但这还不够。

如果我对在表单上手动放置的控件执行相同操作，但不是动态创建的。

如何做到这一点。这个控件不应该在我只需要绘制它并释放它的任何地方可见。

Answer 1

两个问题。首先，您确实需要将控件设置为父级才能使其可绘制。

其次，您将保存为 BMP，它不支持 FMX 中用于生成屏幕截图的透明度（并且是特定于平台的）。将其另存为 PNG。

procedure TForm1.FormCreate(Sender: TObject);
var
  cb: TCheckBox;
  BMP: TBitmap;
begin
  BMP:= nil;
  cb:= TCheckBox.Create(nil);
  try
    cb.Parent := self;
    cb.Text := 'testing';      
    cb.IsChecked:= true;
    bmp := cb.MakeScreenshot;
    BMP.SaveToFile('C:\bmp.png');
  finally
    cb.Free;
    BMP.Free;
  end;
end;