如何把从文本框得到的文字转换成图片，请各位高手帮忙啊！

Question

如何把从文本框得到的文字转换成图片，请各位高手帮忙啊！

Answer 1

用delphi的图象操作，将其文本框的区域一起抓图抓下来，需要一个函数就可以了，什么bit...,忘记了

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  vDC: THandle;
begin
  vDC := GetDC(Edit1.Handle);
  try
    Image1.Picture.Bitmap.Width := Edit1.ClientWidth;
    Image1.Picture.Bitmap.Height := Edit1.ClientHeight;
    Image1.Picture.Bitmap.Canvas.FillRect(
      Image1.Picture.Bitmap.Canvas.ClipRect);
    BitBlt(Image1.Picture.Bitmap.Canvas.Handle, 0, 0,
      Edit1.ClientWidth, Edit1.ClientHeight,
      vDC, 0, 0, SRCCOPY);
  finally
    ReleaseDC(Edit1.Handle, vDC);
  end;
end;

Answer 3

多谢 zswangII(伴水清清)(一贴不灌，何以灌天下？) ，问题解决了！

Answer 4

//还有一招～～
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.Width := Edit1.Width;
  Image1.Picture.Bitmap.Height := Edit1.Height;
  Edit1.PaintTo(Image1.Canvas, 0, 0);
end;