截图:窗体及窗体局部
procedure TfmxDataDictionary.LblTitleClick(Sender: TObject);
var LTBitmap:TBitmap;
begin
LTBitmap:=LayoutSelf.MakeScreenshot;
Image1.Bitmap.SetSize(LTBitmap.Size);
Image1.Bitmap.CopyFromBitmap(LTBitmap);
end;
procedure TfmxDataDictionary.LblTitleClick(Sender: TObject);
var LTBitmap:TBitmap;
begin
LTBitmap:=LayoutSelf.MakeScreenshot;
Image1.Bitmap.SetSize(LTBitmap.Size);
Image1.Bitmap.CopyFromBitmap(LTBitmap);
end;