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

[litao3029]

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

[wxjh]

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

[zswangII]

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;

[litao3029]

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

[zswangII]

//还有一招～～
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;