label在win 2000下的透明问题?

[lindaozhi]

我用的是delphi2007，在xp系统下写的程序，在xp系统下运行正常。但拿到win2000或者win2003下label的透明属性就没用了，因为我的背景是张图片，如果不透明的话就很难看了。请问一下要怎么解决这个问题呢？有没有什么办法让label在2000或者2003下也是透明的呢？

[lindaozhi]

谢谢~~
第一个不行,因为我现在就是用这个设置;
第二个不太明白怎么做,能举个例子吗?
我的理解能力很差的~_~

[lindaozhi]

???????

怎么这个问题很弱智吗?
为什么大家都不愿回答啊...........

[无条件为你]

将label1.Transparent设置为True。

如果不行的话，你就画吧，用form1.Canvas.TextOut();方法，不过要事先设置画笔笔刷透明。

[lindaozhi]

呵呵~~
开个价吧，给你。

[lindaozhi]

顶到废了为止~~~

[无条件为你]

关于用Canvas.TextOut的方法你自己在网上搜吧，必定你才给20分。如果分多点的话，或者就有人抢着帮你着代码了。

[lindaozhi]

.............

[lihuasoft]

[Quote=引用 3 楼 lindaozhi 的回复:]
谢谢~~
第一个不行,因为我现在就是用这个设置;
第二个不太明白怎么做,能举个例子吗?
我的理解能力很差的~_~
[/Quote]

[Quote=引用 7 楼 lindaozhi 的回复:]
.............
[/Quote]

接分。

var
BMP: TBitmap;

procedure TForm1.Button1Click(Sender: TObject);
begin
if BMP=nil then BMP := TBitmap.Create;
BMP.LoadFromFile('c:\test.bmp');////BMP！
Image1.Picture.Bitmap := BMP;
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.TextOut(50, 50, '楼主，你好，我接分');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if BMP<>nil then BMP.Free;
end;

[lindaozhi]

哇塞~~~
够魄力~~~~~
我喜欢~~~!

[lihuasoft]

改一下：

var
  BMP: TBitmap;

procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
begin
  if BMP=nil then BMP := TBitmap.Create;
  BMP.LoadFromFile('c:\test.bmp');
  Image1.Picture.Bitmap := BMP;
  DC := Image1.Canvas.Handle;
  SetBkMode(DC, TransParent);
  SetTextColor(DC, clRed);
  TextOut(DC, 50, 50, '你好，楼主，把分给我，哈哈', 26);
  ReleaseDC(0, DC);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if BMP<>nil then BMP.Free;
end;