保存窗体为图片.txt

来自「dbgrid显示数据库记录时,可以建立ontitle事件使鼠标控制grid滚动」· 文本 代码 · 共 9 行

var
  bit: TBitmap;
begin
  bit := TBitmap.Create;
  bit.Width := Width;
  bit.Height := Height;
  BitBlt(bit.Canvas.Handle, 0, 0, Width, Height, GetWindowDC(Handle), 0, 0, SRCCOPY);
  bit.SaveToFile('d:\tddownload\Form1.bmp');
  bit.Free;