在delphi7中如何将窗体保存为位图文件
答案:2 悬赏:30 手机版
解决时间 2021-04-03 13:41
- 提问者网友：王者佥
- 2021-04-02 20:52
在delphi7中如何将窗体保存为位图文件
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2020-12-20 00:50
用windows的截图功能即可。
再看看别人怎么说的。
再看看别人怎么说的。
全部回答
- 1楼网友：洒脱疯子
- 2021-03-05 13:02
procedure TForm1.btn1Click(Sender: TObject);
var
BitRect: TRect;
Bitmap: TBitmap;
FScreenCanvas: TCanvas;
begin
Bitmap := TBitmap.Create;
Bitmap.SetSize(Self.ClientWidth, Self.ClientHeight);
BitRect.Left := 0;
BitRect.Top := 0;
BitRect.Right := BitRect.Left + Bitmap.Width;
BitRect.Bottom := BitRect.Top + Bitmap.Height;
FScreenCanvas := TCanvas.Create;
FScreenCanvas.Handle := Self.Canvas.Handle;
Bitmap.Canvas.Lock;
Bitmap.Canvas.CopyRect(BitRect, FScreenCanvas, Self.ClientRect);
Bitmap.Canvas.Unlock;
Bitmap.SaveToFile('d:\a.bmp');
Bitmap.Free;
end;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯