怎么使得一个form透明呀???

解决方案 »

  1.   

    下面是怎样让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透明啊?
      

  2.   

    好像暂时没人回答这个问题呢,不妨先向你请教一下form的透明了
    begin
        inherited CreateParams(params);
        params.ExStyle:=params.ExStyle or WS_EX_TRANSPARENT;
    end;
    这段是干什么呢/??再就是后面怎么多出来了个canvas???最后的赋值 :=bsclear因该就是使得窗体透明的吧
      

  3.   

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

  4.   

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

  5.   

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

  6.   

    在AXForm上可没有Transparent和TransparentColorValue属性
      

  7.   

    Eagle_Lone (阿龙) 这个也较透明窗体阿? 一拖动什么都完了