Delphi7保存屏幕为图片
Delphi7保存屏幕为图片，以下是主程序： function TForm1.GetControlsImage(ACtrl: TWinControl): TBitmap; var Ofs: Integer; begin Result := TBitmap.Create; try Result.Width := ACtrl.ClientWidth; Result.Height := ACtrl.ClientHeight; Result.Canvas.Brush := ACtrl.Brush; Result.Canvas.FillRect(ACtrl.ClientRect); Result.Canvas.Lock; try if GetWindowLong(ACtrl.Handle, GWL_STYLE) and WS_BORDER 0 then Ofs := -1 // Don't draw form border else Ofs := 0; // There is no border ACtrl.PaintTo(Result.Canvas.Handle, Ofs); finally Result.Canvas.Unlock; end; except Result.Free; raise; end;
文件大小：3.28KB
评论区