我知道怎样让一个FORM透明,可是怎么样让一个AxtiveXForm透明呢? 怎么使得一个form透明呀??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 下面是怎样让FORM透明的方法: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.各位大哥,怎样让AXFrom透明啊? 好像暂时没人回答这个问题呢,不妨先向你请教一下form的透明了begin inherited CreateParams(params); params.ExStyle:=params.ExStyle or WS_EX_TRANSPARENT;end;这段是干什么呢/??再就是后面怎么多出来了个canvas???最后的赋值 :=bsclear因该就是使得窗体透明的吧 CANVAS是FORM的画板。上面那个函数是去掉FORM上的按钮(最大最小) D6里面直接设置Form的Transparent和TransparentColorValue属性就可以将窗体透明(Win2000以上的系统)Activex的没做过了,看看。 哦~~~~softwing的方法好像最简洁~~~~不过还是多谢阿龙:) 在AXForm上可没有Transparent和TransparentColorValue属性 Eagle_Lone (阿龙) 这个也较透明窗体阿? 一拖动什么都完了 快捷键的图标在不同文件夹下形状不同,为什么? 编译资源文件出错 寻求Delphi7高手合作(有偿) D7连接SQL2000中文版,用中文字段和用英文字段有没有使用限制? 请教:一个查询大型数据库的问题? 请教如何实现2个关系表的对应查询,大家近来讨论讨论~~来者有分,如解决另开贴散分500 小弟请教一个简单的问题,大家都来帮帮忙!!!!!急急急急急急急急急!!! 關於密碼驗證窗口的簡單問題 TGifimage3.0安装,请指教 BDE + SQL AnyWhere6.0问题!求救!SOS! 局域网中聊天程序怎么来看用户是否在线?谢谢 请问delphi中十六进制转化为十进制是用什么函数
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.
各位大哥,怎样让AXFrom透明啊?
begin
inherited CreateParams(params);
params.ExStyle:=params.ExStyle or WS_EX_TRANSPARENT;
end;
这段是干什么呢/??再就是后面怎么多出来了个canvas???最后的赋值 :=bsclear因该就是使得窗体透明的吧
Activex的没做过了,看看。
不过还是多谢阿龙
:)