透明的问题如何解决??????!!!! 你想要真的透明还是假的透明?假的透明,复制背景,在背景上写字,看上去就像是透明的真的透明,把这几个汉字写在另外一个Bitmap上,根据轮廓建立窗口的剪切路径。明白了吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 关键的问题是字内部笔画间的空隙也要透明,只能让笔画显示出来bitmap是做不到的。 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. 全中国的Delphi程序员都来看看,D2009竟然变成D7,谁能解释一下! 如何将几个应用程序的报表合并成一个文件? 怎么将这段C代码转为的Delphi的? 帮帮小弟吧,我想在程序中获得另一个程序的窗口中的richedit中的text内容,现在我知道了这个窗口的句柄,要怎样才能得到那个richedit的句 pagecontrol的问题 如何POP3邮件的收取? 急! 哈哈,原来我很菜!简单问题。 Com组件问题,急急急!!! delphi中,如何写SQL命令避免录入重复数据? 如何在连接未建立之前确定连接的服务器(主机)是否存在? 关于数值计算的问题 delphi中如何声明全程变量?
bitmap是做不到的。
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.