关于Alpha Windos的问题,... (50分)

yhw1999 · 2002-10-02

我用下面代码实现了透明窗口,可是有个问题,我看见一个程序,它透明窗口下面的图标是 可以点击的,而我实现的透明窗口虽然看的见,但是在窗口下面的图标是不能点击的, 我该如何实现透明窗口下面的图标可点击呢, 也就是说看的见窗口,但是只是看的见,使用 的时候透明窗口就和不存在一样.   l:=getWindowLong(Handle, GWL_EXSTYLE);   l := l Or WS_EX_LAYERED;   SetWindowLong (handle, GWL_EXSTYLE, l);   SetLayeredWindowAttributes (handle, 0, 180, LWA_ALPHA);

Scarlette · 2002-10-06

你重载WM_NCHITTEST的消息响应过程就可以了。

yhw1999 · 2002-10-06

谢谢,但是我不知道该如何写代码呢?

yhw1999 · 2002-10-26

Scarlette, 能再给我说详细点吗?

老人家 · 2002-10-26

ch_yahuu · 2002-10-27

这样就ＯＫ了. unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Panel1: TPanel;     Button2: TButton;     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormResize(Sender: TObject);   private     { Private declarations }     procedure DoVisible;     procedure DoInvisible;   public     { Public declarations }   end; var   Form1: TForm1;   FullRgn, ClientRgn, CtlRgn : THandle; implementation {$R *.DFM} procedure TForm1.DoInvisible; var   AControl : TControl;   A, Margin, X, Y, CtlX, CtlY : Integer; begin   Margin := ( Width - ClientWidth ) div 2;   FullRgn := CreateRectRgn(0, 0, Width, Height);   X := Margin;   Y := Height - ClientHeight - Margin;   ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );   CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );   for A := 0 to ControlCount - 1 do begin     AControl := Controls[A];     if ( AControl is TWinControl ) or ( AControl is TGraphicControl )         then with AControl do begin       if Visible then begin         CtlX := X + Left;         CtlY := Y + Top;         CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );         CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );       end;     end;   end;   SetWindowRgn(Handle, FullRgn, TRUE); end; procedure TForm1.FormDestroy(Sender: TObject); begin   DeleteObject(ClientRgn);   DeleteObject(FullRgn);   DeleteObject(CtlRgn); end; procedure TForm1.DoVisible; begin   FullRgn := CreateRectRgn(0, 0, Width, Height);   CombineRgn(FullRgn, FullRgn, FullRgn, RGN_COPY);   SetWindowRgn(Handle, FullRgn, TRUE); end; procedure TForm1.FormCreate(Sender: TObject); begin   DoInvisible; end; procedure TForm1.Button1Click(Sender: TObject); begin   if Button1.Caption = 'Show Form' then begin     DoVisible;     Button1.Caption := '隐藏窗口';   end   else begin     DoInvisible;     Button1.Caption := '显示窗口';   end; end; procedure TForm1.Button2Click(Sender: TObject); begin   Application.Terminate; end; procedure TForm1.FormResize(Sender: TObject); begin   if Button1.Caption = '显示窗口' then     DoInvisible   else     DoVisible; end; end. 呵呵.兄弟加分啊.我没分了.不好意思.快啊.

yhw1999 · 2002-10-28

to ch_yahuu, 你实现的是把窗口区域透明了,但是窗口标题栏,边框以及窗口中的控件 还是不能实现透明啊.     我想要的是窗完全透明的效果, 也就是说这个窗口就像一张墙纸一样,包括标题栏,边框 都是透明的.     不过还是谢谢你,等这个问题结束了一定有你的分的.

ch_yahuu · 2002-10-28

唉.你把form1.BorderStyle:=bsnone;不就可以了吗?

yhw1999 · 2002-10-28

不是的，这样确实是没有边框了，但是那些框件还是没有透明啊，我说的时不仅透明，而且 控件下面的东西也是可以直接操作的

ch_yahuu · 2002-10-29

绝对可以啊.我试过的.在form1属性里将borderstyle设为bsnone 我试过的.一点问题都没有. 窗体是完全透明的.而且透明窗体下的图标啊.什么的都是可以使用的.就像没有窗体一样. 我用的是win98.不知你用的是什么你再好好看看

yhw1999 · 2002-10-29

我是用的 Win2000 ,那我在到 win98 下面试一试再说吧, 另外 , 我是在这里下载的 http://www.genius-software.com/cn/download/index.htm 幻想桌面这处程序中看到的功能, 它里面的图片和便签都是使用了我说的那种透明 方式

yhw1999 · 2002-11-07

我在98下面试了，和在2000下面效果一样，窗口中的控件不能透明

关于Alpha Windos的问题,... (50分)

yhw1999

Unregistered / Unconfirmed

Scarlette

Unregistered / Unconfirmed

yhw1999

Unregistered / Unconfirmed

yhw1999

Unregistered / Unconfirmed

老人家

Unregistered / Unconfirmed

ch_yahuu

Unregistered / Unconfirmed

yhw1999

Unregistered / Unconfirmed

ch_yahuu

Unregistered / Unconfirmed

yhw1999

Unregistered / Unconfirmed

ch_yahuu

Unregistered / Unconfirmed

yhw1999

Unregistered / Unconfirmed

yhw1999

Unregistered / Unconfirmed

Similar threads