var
cc:TControlCanvas;
bmp:TBitmap;
begin
bmp:=TBitmap
.
Create;
cc:=TControlCanvas
.
Create;
try
cc
.
Control:=Label1;
bmp
.
Width:=cc
.
Control
.
Width;
bmp
.
Height:=cc
.
Control
.
Height;
BitBlt(bmp
.
Canvas
.
Handle,
0
,
0
,
bmp
.
Width,bmp
.
Height,cc
.
Handle,
0
,
0
,SRCCOPY);
bmp
.
SaveToFile(
'c:\test.bmp'
);
finally
cc
.
Free;
bmp
.
Free;
end
;
end
;