- 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
最新推荐文章于 2021-07-15 21:49:08 发布