如何创建一个BMP文件并向里面输入文字呢？？

Question

begin
  Image1.Picture.Bitmap.Width := 100;
  Image1.Picture.Bitmap.Height := 20;
  Image1.Picture.Bitmap.Canvas.TextOut(0, 0, '参考TCanvas.TextOut');
end;

Answer 1

var image1:Timage
begin
image1:=Timage.creat(owner);
image1.perent:=self
image1.picture.bitmap.width:=100;
image1.picture.bitmap.height:=100;
//这里你还可以设画笔的颜色和宽度.（用image1.picture.bitmap.canvas.pen.width/color)
image1.picture.bitmap.canvas.textout(10,10,'ok');
image1.Picture.Bitmap.SaveToFile('c:\aaa.bmp');
end;

Answer 2

直接用窗体的Canvas.textout应该行吧！