- procedure TForm1.Button1Click(Sender: TObject);
- var
- bmp:Tbitmap;
- begin
- bmp:=tbitmap.Create;
- bmp.Width:=clientWidth;
- bmp.Height:=clientHeight;
- bmp.Canvas.CopyRect(self.GetClientRect,self.Canvas,self.GetClientRect);
- bmp.SaveToFile('d:/12.bmp');
- bmp.Free;
- end;
Delphi---将窗体的内容存为bmp
最新推荐文章于 2022-02-18 11:12:14 发布