textout输出的字体能不能透明？

Question

输出之前先：
SetBkMode(fdc,TRANSPARENT）；
InsideDelphi走前忍不住回答了一次。

Answer 1

讨论过了，搜索“透明”即可。
rh(强硬的毛主席万岁！伟大的周总理万岁！)　(2001-5-11 0:53:00)  得20分 
很简单，这样做:
首先，你放一个image，设置为alclient的。设置好图象。然后加代码，比如：
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetBkMode(Canvas.Handle,TRANSPARENT);//文字透明！
  Canvas.Font.Name := '楷体_GB2312';
  Canvas.Font.Size := 66;
  Canvas.TextOut(1,1, '贵州师范大学计算机爱好者协会');
end;  

Answer 2

我如何控制textout输出粗体阴影字啊？
textout不是canvs里的
而是api 提供的，

Answer 3

可以使用API来更换控件的字体，怎么做的我忘记了。
至于阴影字，只要改变TextOut的坐标即可。

Answer 4

to: liaokuo
我把你那代码输到程序中，运行后没有任何字啊？为什么呢？

Answer 5

to:kinggron
把 alin设置成 alclient的效果是什么？能解释一下吗？我是初学者

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  fdc: hdc;
  a:hwnd;
begin
 a:=GetDesktopWindow();
  fdc := getdc(a);
  SetBkMode(fdc,TRANSPARENT);
  TextOut(fdc, 5, 5, 'asd444444f', 100);
  //   releasedc(application.Handle,fdc);
end;
这时候桌面上没有任何字，而我用
fdc:=getdc(0)，就可以显示字体
但这些字体不是在桌面显示，而是在窗体上，
1刷新窗体就没了
我怎么能让字留在桌面上？
drawtext能不能做这活？

Answer 7

procedure TDrawDesktop.Button2Click(Sender: TObject);
var
mydc:HDC;
s:pchar;
l:integer;
begin
s:='大学';
l:=length(s);
mydc:=getdc(0);
setbkmode(mydc,transparent);    //文字透明
try
textout(mydc,250,250,s,l);
finally
releasedc(0,mydc);
end;end;
“1刷新窗体就没了”－－可以把上面的代码放到timer中去，让timer不停的画桌面就行了。

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
  OldBkMode : integer;
begin
  with Form1.Canvas do begin0D
    Brush.Color := clRed;
    FillRect(Rect(0, 0, 100, 100));
    Brush.Color := clBlue;
    TextOut(10, 20, 'Not Transparent!');
    OldBkMode := SetBkMode(Handle, TRANSPARENT);
    TextOut(10, 50, 'Transparent!');
    SetBkMode(Handle, OldBkMode);
  end;
end; ================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================