我知道怎样让一个FORM透明，可是怎么样让一个AxtiveXForm透明呢？

Eagle_Lone 2002-05-12 04:45:18

...全文

56 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

Eagle_Lone 2002-05-12

打赏
举报

我踢踢踢

Eagle_Lone 2002-05-12

打赏
举报

我再踢

Eagle_Lone 2002-05-12

打赏
举报

我踢

stamf 2002-05-12

打赏
举报

Eagle_Lone (阿龙)

这个也较透明窗体阿？　一拖动什么都完了

Eagle_Lone 2002-05-12

打赏
举报

Eagle_Lone 2002-05-12

打赏
举报

快救急啊！！！

Eagle_Lone 2002-05-12

打赏
举报

在AXForm上可没有Transparent和TransparentColorValue属性

PS2 2002-05-12

打赏
举报

哦~~~~softwing的方法好像最简洁~~~~
不过还是多谢阿龙
:)

softwing 2002-05-12

打赏
举报

D6里面直接设置Form的Transparent和TransparentColorValue属性就可以将窗体透明（Win2000以上的系统）
Activex的没做过了，看看。

Eagle_Lone 2002-05-12

打赏
举报

CANVAS是FORM的画板。上面那个函数是去掉FORM上的按钮（最大最小）

PS2 2002-05-12

打赏
举报

好像暂时没人回答这个问题呢，不妨先向你请教一下form的透明了
begin
inherited CreateParams(params);
params.ExStyle:=params.ExStyle or WS_EX_TRANSPARENT;
end;
这段是干什么呢/？？

再就是后面怎么多出来了个canvas???

最后的赋值 :=bsclear因该就是使得窗体透明的吧

lvloj 2002-05-12

打赏
举报

一个简单的方法是使其颜色与网页的背景色一致

Eagle_Lone 2002-05-12

打赏
举报

下面是怎样让FORM透明的方法：

unit Unit1;

interface

uses
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透明啊？

PS2 2002-05-12