想將label上的字變成影像輸出
uj5u.com熱心網友回復：
貌似沒有直接的功能。可以獲得label的位置跟大小，把這一塊截成圖象
uj5u.com熱心網友回復：
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;
uj5u.com熱心網友回復：
sololie超厲害，這段代碼看似信手寫來的。
我信手可寫不出來。
最后就算寫出來，也是查了好幾個網頁，反復改了N遍。
太厲害 太厲害
uj5u.com熱心網友回復：
果然是牛人一個...uj5u.com熱心網友回復：
很牛，很正確
uj5u.com熱心網友回復：
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
with lbl1 do
begin
bmp.Width := Width;
bmp.Height := Height;
bmp.Canvas.CopyRect(ClientRect, Canvas, ClientRect);
bmp.SaveToFile('c:\aa.bmp');
end;
finally
bmp.Free;
end;
end;
uj5u.com熱心網友回復：
DELPHI 大師啊
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/117389.html
標籤：VCL組件開發及應用