你想要真的透明还是假的透明?
假的透明,复制背景,在背景上写字,看上去就像是透明的
真的透明,把这几个汉字写在另外一个Bitmap上,根据轮廓建立窗口的剪切路径。明白了吗?

解决方案 »

  1.   

    关键的问题是字内部笔画间的空隙也要透明,只能让笔画显示出来
    bitmap是做不到的。
      

  2.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
        procedure CreateParams(var Params:TCreateParams);override;
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.CreateParams(var Params:TCreateParams);
    begin
        inherited CreateParams(params);
        params.ExStyle:=params.ExStyle or WS_EX_TRANSPARENT;
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
        inherited;
        canvas.Brush.Style:=bsClear;
    end;end.