（急需（分数多多呢！））如何让Delphi在Image（有Bitmap）上写字（背景应为透明，例如TextOut的白色背景是不行的）？？？？？？

[yxf]

[Lin]

没有问题啊, 只需设置CanvasBrush.Style为bsClear就OK, 如:
...
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.TextOut(10, 10, '透明汉字');
...

[huzi]

用Label也可以呀。Label有透明属性

[Mars]

with image1 do
begin
canvas.brush.style:=bsclear;
canvas.textout(widht div 2,height div 2,'hello');
end;
//ok!!!

[5201314]

在quickreport上试试！我也在研究这个问题！欢迎交流！

[dengdeng]

ahao 的回答是对的。

不过最好把代码写在Image1所在Form的OnPaint事件中，避免刷新后丢失。

[sunsetyang]

已经写在image1中的东西会丢失？不会吧！！

[ahao]

哈哈,我的一定行:
用BCB是:
Image1->Transparent=true;
Image1->Canvas->Brush->Style = bsClear;
Image1->Canvas->Font->Size=9;
Image1->Canvas->Font->Name="宋体";
Image1->Canvas->TextOut(10, 10, "透明汉字");
改成Delphi可能是:
Image1.Transparent=true;
Image1.Canvas.Brush.Style = bsClear;
Image1.Canvas.Font.Size=9;
Image1.Canvas.Font.Name='宋体';
Image1.Canvas.TextOut(10, 10, '透明汉字');
OK?

[ahao]

不对,我搞错了,如果有Bitmap的话还是把Transparent去掉吧,不然会闪烁的,前面几位已经说对了.

[hirong]

记得在VC++中只要将DC设置成透明的就可以了
pDC->SetBkMode(TRANSPARENT);
DELPHI我没试过.