终于找到了完美的透明窗口源代码，不过是c#的，有谁为大家造福，翻译成delphi！！(50分)

wujingping · 2003-09-21

终于找到了完美的透明窗口源代码，不过是c#的，有谁为大家造福，翻译成delphi！！ 不过还是不支持98，调用了GDI+引擎，好像关键API是UpdateLayeredWindow。 本人不太懂C#,有哪位明白，不妨指教一下。 完整的zip 源文件在ftp://temp:temp@211.154.84.185/perpxalpha_sharp_src.zip 包含测试用的图片和成品exe文件。 源代码 // // Copyright ?2002 Rui Godinho Lopes <rui@ruilopes.com> // All rights reserved. // // This source file(s) may be redistributed unmodified by any means // PROVIDING they are not sold for profit without the authors expressed // written consent, and providing that this notice and the authors name // and all copyright notices remain intact. // // Any use of the software in source or binary forms, with or without // modification, must include, in the user documentation ("About" box and // printed documentation) and internal comments to the code, notices to // the end user as follows: // // "Portions Copyright ?2002 Rui Godinho Lopes" // // An email letting me know that you are using it would be nice as well. // That's not much to ask considering the amount of work that went into // this. // // THIS SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED. USE IT AT YOUT OWN RISK. THE AUTHOR ACCEPTS NO // LIABILITY FOR ANY DATA DAMAGE/LOSS THAT THIS PRODUCT MAY CAUSE. // using System; using System.Drawing; using System.Drawing.Imaging; using System.Windows.Forms; using System.Runtime.InteropServices; // a static class to expose needed win32 gdi functions. class Win32 { public enum Bool { False= 0, True }; [StructLayout(LayoutKind.Sequential)] public struct Point { public Int32 x; public Int32 y; public Point(Int32 x, Int32 y) { this.x= x; this.y= y; } } [StructLayout(LayoutKind.Sequential)] public struct Size { public Int32 cx; public Int32 cy; public Size(Int32 cx, Int32 cy) { this.cx= cx; this.cy= cy; } } [StructLayout(LayoutKind.Sequential, Pack=1)] struct ARGB { public byte Blue; public byte Green; public byte Red; public byte Alpha; } [StructLayout(LayoutKind.Sequential, Pack=1)] public struct BLENDFUNCTION { public byte BlendOp; public byte BlendFlags; public byte SourceConstantAlpha; public byte AlphaFormat; } public const Int32 ULW_COLORKEY = 0x00000001; public const Int32 ULW_ALPHA    = 0x00000002; public const Int32 ULW_OPAQUE   = 0x00000004; public const byte AC_SRC_OVER  = 0x00; public const byte AC_SRC_ALPHA = 0x01; [DllImport("user32.dll", ExactSpelling=true, SetLastError=true)] public static extern Bool UpdateLayeredWindow(IntPtr hwnd, IntPtr hdcDst, ref Point pptDst, ref Size psize, IntPtr hdcSrc, ref Point pprSrc, Int32 crKey, ref BLENDFUNCTION pblend, Int32 dwFlags); [DllImport("user32.dll", ExactSpelling=true, SetLastError=true)] public static extern IntPtr GetDC(IntPtr hWnd); [DllImport("user32.dll", ExactSpelling=true)] public static extern int ReleaseDC(IntPtr hWnd, IntPtr hDC); [DllImport("gdi32.dll", ExactSpelling=true, SetLastError=true)] public static extern IntPtr CreateCompatibleDC(IntPtr hDC); [DllImport("gdi32.dll", ExactSpelling=true, SetLastError=true)] public static extern Bool DeleteDC(IntPtr hdc); [DllImport("gdi32.dll", ExactSpelling=true)] public static extern IntPtr SelectObject(IntPtr hDC, IntPtr hObject); [DllImport("gdi32.dll", ExactSpelling=true, SetLastError=true)] public static extern Bool DeleteObject(IntPtr hObject); } /// <para>PerPixel forms should derive from this base class</para> /// <author><name>Rui Godinho Lopes</name><email>rui@ruilopes.com</email></author> class PerPixelAlphaForm : Form { /// <para>Changes the current bitmap.</para> public void SetBitmap(Bitmap bitmap) { SetBitmap(bitmap, 255); } /// <para>Changes the current bitmap with a custom opacity level.  Here is where all happens!</para> public void SetBitmap(Bitmap bitmap, byte opacity) { if (bitmap.PixelFormat != PixelFormat.Format32bppArgb) throw new ApplicationException("The bitmap must be 32ppp with alpha-channel."); // The ideia of this is very simple, // 1. Create a compatible DC with screen; // 2. Select the bitmap with 32bpp with alpha-channel in the compatible DC; // 3. Call the UpdateLayeredWindow. IntPtr screenDc = Win32.GetDC(IntPtr.Zero); IntPtr memDc = Win32.CreateCompatibleDC(screenDc); IntPtr hBitmap = IntPtr.Zero; IntPtr oldBitmap = IntPtr.Zero; try { hBitmap = bitmap.GetHbitmap(Color.FromArgb(0));  // grab a GDI handle from this GDI+ bitmap oldBitmap = Win32.SelectObject(memDc, hBitmap); Win32.Size size = new Win32.Size(bitmap.Width, bitmap.Height); Win32.Point pointSource = new Win32.Point(0, 0); Win32.Point topPos = new Win32.Point(Left, Top); Win32.BLENDFUNCTION blend = new Win32.BLENDFUNCTION(); blend.BlendOp             = Win32.AC_SRC_OVER; blend.BlendFlags          = 0; blend.SourceConstantAlpha = opacity; blend.AlphaFormat         = Win32.AC_SRC_ALPHA; Win32.UpdateLayeredWindow(Handle, screenDc, ref topPos, ref size, memDc, ref pointSource, 0, ref blend, Win32.ULW_ALPHA); } finally { Win32.ReleaseDC(IntPtr.Zero, screenDc); if (hBitmap != IntPtr.Zero) { Win32.SelectObject(memDc, oldBitmap); //Windows.DeleteObject(hBitmap); // The documentation says that we have to use the Windows.DeleteObject... but since there is no such method I use the normal DeleteObject from Win32 GDI and it's working fine without any resource leak. Win32.DeleteObject(hBitmap); } Win32.DeleteDC(memDc); } } protected override CreateParams CreateParams { get { CreateParams cp = base.CreateParams; cp.ExStyle |= 0x00080000; // This form has to have the WS_EX_LAYERED extended style return cp; } } } /// <para>Our test form for this sample application.  The bitmap will be displayed in this window.</para> class MyPerPixelAlphaForm : PerPixelAlphaForm { public MyPerPixelAlphaForm() { Text = "PerPixelAlpha Layered Form"; TopMost = true; FormBorderStyle = FormBorderStyle.FixedDialog; MinimizeBox = false; MaximizeBox = false; ControlBox = false; } // Let Windows drag this window for us protected override void WndProc(ref Message m) { if (m.Msg == 0x0084 /*WM_NCHITTEST*/) { m.Result= (IntPtr)2; // HTCLIENT return; } base.WndProc(ref m); } } ///<para>The "controller" dialog box.</para> class MyForm : Form { public MyForm() { Font= new Font("tahoma", 8); Text= "perpixelalpha# - Sample application"; FormBorderStyle = FormBorderStyle.FixedDialog; MinimizeBox = false; MaximizeBox = false; ClientSize = new Size(350, 160); StartPosition = FormStartPosition.CenterScreen; AllowDrop = true; // Because we want to be a drop target of windows explorer files. InitializeComponent(); } ///<para>Constructs and initializes all child controls of this dialog box.</para> private void InitializeComponent() { // Label with to display current opacity level Label Label1 = new Label(); Label1.AutoSize = true; Label1.Location = new System.Drawing.Point(4, 8); Label1.Text = "1. Drag&&Drop an image file from windows explorer into this window."; Controls.Add(Label1); Label Label2 = new Label(); Label2.AutoSize = true; Label2.Location = new System.Drawing.Point(4, 38); Label2.Text = "2. Play with the opacity level [0..255]:"; Controls.Add(Label2); // Label with to display current opacity level LabelValue = new Label(); LabelValue.AutoSize = true; LabelValue.Location = new System.Drawing.Point(195, 38); LabelValue.Text = "255"; Controls.Add(LabelValue); // Trackbar to change opacity level Track = new TrackBar(); Track.Location = new System.Drawing.Point(18, 58); Track.Size = new System.Drawing.Size(310, 0); Track.BeginInit(); Track.Maximum = 255; Track.TickFrequency = 5; Track.TickStyle = TickStyle.TopLeft; Track.Value = 255; Track.EndInit(); Track.ValueChanged += new EventHandler(Track_ValueChanged); Controls.Add(Track); Label Label3 = new Label(); Label3.AutoSize = true; Label3.Location = new System.Drawing.Point(4, 108); Label3.Text = "3. Drag the layered window arround you desktop!"; Controls.Add(Label3); // Label with two links to me!

LinkLabel Link = new LinkLabel(); Link.Location = new System.Drawing.Point(4, 140); Link.Size = new System.Drawing.Size(250, 80); Link.Text = "by Rui Lopes <rui@ruilopes.com>"; Link.Links.Add(3, 9,  "http://www.ruilopes.com"); Link.Links.Add(14, 16, "mailto:rui@ruilopes.com"); Link.LinkClicked += new LinkLabelLinkClickedEventHandler(Link_LinkClicked); Controls.Add(Link); // TestForm will containt the per-pixel-alpha dib TestForm = new MyPerPixelAlphaForm(); TestForm.Show(); } ///<para>Frees our bitmap.</para> protected override void Dispose(bool disposing) { try { if (disposing && bitmap != null) { bitmap.Dispose(); bitmap = null; } } finally { base.Dispose(disposing); } } ///<para>Accepts only Drops of windows explorer files.</para> protected override void OnDragEnter(DragEventArgs e) { if (e.Data.GetDataPresent(DataFormats.FileDrop)) e.Effect = DragDropEffects.Copy; base.OnDragEnter(e); } ///<para>Just loads the dropped file from windows explorer.</para> protected override void OnDragDrop(DragEventArgs e) { string[] files= e.Data.GetData(DataFormats.FileDrop) as string[]; if (files != null) { if (files.Length == 1) SetPerPixelBitmapFilename(files[0]); else MessageBox.Show(this, "Please, drop only one image file.", "Too many files dropped", MessageBoxButtons.OK, MessageBoxIcon.Stop); } base.OnDragDrop(e); } ///<para>Just load a image file and display it on our test form.</para> private void SetPerPixelBitmapFilename(string fileName) { Bitmap newBitmap; try { newBitmap = Image.FromFile(fileName) as Bitmap; TestForm.SetBitmap(newBitmap, (byte)Track.Value); } catch (ApplicationException e) { MessageBox.Show(this, e.Message, "Error with bitmap.", MessageBoxButtons.OK, MessageBoxIcon.Error); return; } catch (Exception e) { MessageBox.Show(this, e.Message, "Could not open image file.", MessageBoxButtons.OK, MessageBoxIcon.Error); return; } if (bitmap != null) bitmap.Dispose(); bitmap = newBitmap; } ///<para>Change the opacity level of our test form.</para> private void Track_ValueChanged(object sender, EventArgs e) { byte opacity = (byte)Track.Value; LabelValue.Text = opacity.ToString(); LabelValue.Refresh(); // We need this because on slow computers (mine!) the windows takes some time to update our label. if (bitmap != null) TestForm.SetBitmap(bitmap, opacity); } ///<para>Start the computer browser in the specified uri.</para> private void Link_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e) { e.Link.Visited = true; using (System.Diagnostics.Process.Start(e.Link.LinkData.ToString())) { } } // Our member varaibles: private Label LabelValue; // label with current opacity level private TrackBar Track; // trackbar to chabge opacity level private MyPerPixelAlphaForm TestForm; // our test form private Bitmap bitmap; // bitmap that is currently displaying on our test form } // Our Great Application! class TheApp { [STAThread] public static void Main() { Application.Run(new MyForm()); } }

LovingTse · 2003-09-21

这个控件就可以实现半透明的窗体 unit SGlass; {*******************************************************  *          TStainedGlass version 14.06.99             *  *            written by Grigoriev Anton               *  *                                                     *  *******************************************************}  interface   uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,Math;    type TTransparencyStyle=(tsConstant,tsHorGradient,tsVertGradient,tsCustom);         TBackgroundStyle=(bsSimple,bsMosaic,bsCentered,bsStretched,bsCustom);         TTransparency=0..100;         TGetTransparencyEvent=procedure(Sender:TObject;X,Y,Width,Height:Integer;var Transparency:TTransparency) of object;         TCreateBackgroundEvent=procedure(Sender:TObject;Back:TBitmap) of object;         TStainedGlass=class(TComponent)                        private                         FGlyph,ScrImage,Back:TBitmap;                         FTranspStyle:TTransparencyStyle;                         FBackStyle:TBackgroundStyle;                         OldWidth,OldHeight:Integer;                         FTransparency,FAltTransparency:TTransparency;                         FDrawOnDesigning:Boolean;                         OldWndProc:TFarProc;                         NewWndProc

ointer;                         NeedRefresh,Moving:Boolean;                         FDelayTime:Cardinal;                         FOnGetTransparency:TGetTransparencyEvent;                         FOnCreateBackground:TCreateBackgroundEvent;                         procedure HookOwner;                         procedure UnhookOwner;                         procedure SetAltTransparency(Value:TTransparency);                         procedure SetBackStyle(Value:TBackgroundStyle);                         procedure SetDrawOnDesigning(Value:Boolean);                         procedure SetGlyph(Value:TBitmap);                         procedure SetTransparency(Value:TTransparency);                         procedure SetTranspStyle(Value:TTransparencyStyle);                         function ConstantTransparency(X,Y,W,H:Integer):TTransparency;                         function HGTransparency(X,Y,W,H:Integer):TTransparency;                         function VGTransparency(X,Y,W,H:Integer):TTransparency;                         function CustomTransparency(X,Y,W,H:Integer):TTransparency;                         procedure GlyphChanged(Sender:TObject);                        protected                         procedure CreateBack(W,H:Integer);                         procedure CallDefault(var Msg:TMessage);                         procedure HookWndProc(var Msg:TMessage);virtual;                        public                         constructor Create(AOwner:TComponent);override;                         destructor Destroy;override;                         procedure Refresh;                        published                         property AltTransparency:TTransparency read FAltTransparency write SetAltTransparency default 100;                         property BackStyle:TBackgroundStyle read FBackStyle write SetBackStyle default bsSimple;                         property DelayTime:Cardinal read FDelayTime write FDelayTime default 400;                         property DrawOnDesigning:Boolean read FDrawOnDesigning write SetDrawOnDesigning default False;                         property Glyph:TBitmap read FGlyph write SetGlyph;                         property Transparency:TTransparency read FTransparency write SetTransparency default 40;                         property TranspStyle:TTransparencyStyle read FTranspStyle write SetTranspStyle default tsConstant;                         property OnCreateBackground:TCreateBackgroundEvent read FOnCreateBackground write FOnCreateBackground default nil;                         property OnGetTransparency:TGetTransparencyEvent read FOnGetTransparency write FOnGetTransparency default nil;                       end;     procedure Register;  implementation   type TTransparencyFunc=function(X,Y,W,H:Integer):TTransparency of object;        PRGBArray=^TRGBArray;        TRGBArray=array[0..1000000] of TRGBTriple;    constructor TStainedGlass.Create;     var I:Integer;      begin       if not (AOwner is TForm) then        raise EInvalidCast.Create('TStainedGlass can be put on TForm or its destendant only');       with AOwner do        for I:=0 to ComponentCount-1 do         if (Components is TStainedGlass) and (Components<>Self) then          raise EComponentError.Create('Only one TStainedGlass component on a form is allowed');       inherited Create(AOwner);       FGlyph:=TBitmap.Create;       FGlyph.OnChange:=GlyphChanged;       ScrImage:=TBitmap.Create;       ScrImage.Width:=GetSystemMetrics(SM_CXScreen);       ScrImage.Height:=GetSystemMetrics(SM_CYScreen);       ScrImage.PixelFormat:=pf24Bit;       Back:=TBitmap.Create;       Back.PixelFormat:=pf24Bit;       OldWidth:=-1;       OldHeight:=-1;       NeedRefresh:=True;       FAltTransparency:=100;       FBackStyle:=bsSimple;       FTransparency:=40;       FTranspStyle:=tsConstant;       FDelayTime:=400;       Moving:=False;       FOnCreateBackground:=nil;       FOnGetTransparency:=nil;       HookOwner      end;    destructor TStainedGlass.Destroy;     begin      UnhookOwner;      ScrImage.Free;      FGlyph.Free;      Back.Free;      inherited Destroy     end;    procedure TStainedGlass.HookOwner;     begin      if not Assigned(Owner) then       Exit;      OldWndProc:=TFarProc(GetWindowLong(TForm(Owner).Handle,GWL_WndProc));      NewWndProc:=MakeObjectInstance(HookWndProc);      SetWindowLong(TForm(Owner).Handle,GWL_WndProc,LongInt(NewWndProc))     end;    procedure TStainedGlass.UnhookOwner;     begin      if Assigned(Owner) and Assigned(OldWndProc) then       SetWindowLong(TForm(Owner).Handle,GWL_WndProc,LongInt(OldWndProc));      if Assigned(NewWndProc) then       FreeObjectInstance(NewWndProc);      NewWndProc:=nil;      OldWndProc:=nil     end;    procedure TStainedGlass.CallDefault;     begin      Msg.Result:=CallWindowProc(OldWndProc,TForm(Owner).Handle,Msg.Msg,Msg.wParam,Msg.lParam)     end;    procedure TStainedGlass.HookWndProc;     var DC:HDC;         PS:TPaintStruct;         CW,CH,CX,CY:Integer;         SL,BLRGBArray;         X,Y,T:Integer;         TicksNow:Integer;         BM2:TBitmap;         TranspFunc:TTransparencyFunc;      begin       case Msg.Msg of        WM_Paint:if (csDesigning in ComponentState) and not FDrawOnDesigning then                  CallDefault(Msg)                 else                  with Owner as TForm do                   begin                    if Msg.WParam<>0 then                     raise EComponentError.Create('TStainedGlass: incompatibilities were detected. See ReadMe file');                    CW:=ClientWidth;                    CH:=ClientHeight;                    CX:=ClientOrigin.X;                    CY:=ClientOrigin.Y;                    if not Moving then                     begin                      ShowWindow(Handle,SW_Hide);                      SetActiveWindow(0);                      TicksNow:=GetTickCount;                      repeat                       Application.ProcessMessages                      until GetTickCount-TicksNow>=DelayTime;                      DC:=GetDC(0);                      BitBlt(ScrImage.Canvas.Handle,0,0,ScrImage.Width,ScrImage.Height,DC,0,0,SrcCopy);                      ReleaseDC(0,DC)                     end;                    BM2:=TBitmap.Create;                    BM2.Width:=CW+1;                    BM2.Height:=CH+1;                    BM2.PixelFormat:=pf24bit;                    BM2.Canvas.Draw(-CX,-CY,ScrImage);                    if NeedRefresh or (CW<>OldWidth) or (CH<>OldHeight) then                     CreateBack(CW,CH);                    case FTranspStyle of                     tsConstant:TranspFunc:=ConstantTransparency;                     tsHorGradient:TranspFunc:=HGTransparency;                     tsVertGradient:TranspFunc:=VGTransparency;                     tsCustom:if Assigned(FOnGetTransparency) then                               TranspFunc:=CustomTransparency                              else                               TranspFunc:=ConstantTransparency                    end;                    for Y:=0 to CH do                     begin                      SL:=BM2.ScanLine[Y];                      BL:=Back.ScanLine[Y];                      for X:=0 to CW do                       begin                        T:=TranspFunc(X,Y,CW,CH);                        SL[X].rgbtRed:=(T*SL[X].rgbtRed+(100-T)*BL[X].rgbtRed) div 100;                        SL[X].rgbtGreen:=(T*SL[X].rgbtGreen+(100-T)*BL[X].rgbtGreen) div 100;                        SL[X].rgbtBlue:=(T*SL[X].rgbtBlue+(100-T)*BL[X].rgbtBlue) div 100                       end                     end;                    ShowWindow(Handle,SW_Show);                    Msg.WParam:=BeginPaint(Handle,PS);                    BitBlt(Msg.WParam,0,0,BM2.Width,BM2.Height,BM2.Canvas.Handle,0,0,SrcCopy);                    BM2.Free;                    CallDefault(Msg);                    EndPaint(Handle,PS)                   end;        WM_EraseBkgnd:if (csDesigning in ComponentState) and not FDrawOnDesigning then                       CallDefault(Msg)                      else                       Msg.Result:=1;        WM_WindowPosChanged:begin                             CallDefault(Msg);                             if not (csDesigning in ComponentState) or FDrawOnDesigning then                              TForm(Owner).Invalidate                            end;        WM_EnterSizeMove:begin                          Moving:=True;                          CallDefault(Msg)                         end;        WM_ExitSizeMove:begin                         CallDefault(Msg);                         Moving:=False                        end;        WM_DisplayChange:begin                          CallDefault(Msg);                          ScrImage.Width:=Msg.LParamLo;                          ScrImage.Height:=Msg.LParamHi;                          Refresh                         end       else        CallDefault(Msg)       end      end;    procedure TStainedGlass.CreateBack;     var WX,W1,HX,H1,FY,FX:Integer;      begin       NeedRefresh:=False;       OldWidth:=W;       OldHeight:=H;       Back.Width:=W+1;       Back.Height:=H+1;       with Back.Canvas do        begin         Pen.Style:=psClear;         Brush.Style:=bsSolid;         Brush.Color:=TForm(Owner).Color;         Rectangle(0,0,W+1,H+1);         case FBackStyle of          bsMosaic:if not FGlyph.Empty then                    begin                     WX:=FGlyph.Width;                     HX:=FGlyph.Height;                     FY:=0;                     while FY<H do                      begin                       H1:=MinIntValue([H-FY,HX]);                       FX:=0;                       while FX<W do                        begin                         W1:=MinIntValue([W-FX,WX]);                         Draw(FX,FY,FGlyph);                         Inc(FX,W1)                        end;                       Inc(FY,H1)                      end                    end;          bsCentered:if not FGlyph.Empty then                      Draw((W-FGlyph.Width) div 2,(H-FGlyph.Height) div 2,FGlyph);          bsStretched:if not FGlyph.Empty then                       StretchDraw(Rect(0,0,W,H),FGlyph);          bsCustom:if Assigned(FOnCreateBackground) then                    FOnCreateBackground(Self,Back)         end        end      end;    procedure TStainedGlass.Refresh;     begin      NeedRefresh:=True;      TForm(Owner).Invalidate     end;    procedure TStainedGlass.SetAltTransparency;     begin      if Value<>FAltTransparency then       begin        FAltTransparency:=Value;        if FTranspStyle<>tsConstant then         TForm(Owner).Invalidate       end     end;    procedure TStainedGlass.SetBackStyle;     begin      if Value<>FBackStyle then       begin        FBackStyle:=Value;        Refresh       end     end;    procedure TStainedGlass.SetDrawOnDesigning;     begin      FDrawOnDesigning:=Value;      if csDesigning in ComponentState then       TForm(Owner).Invalidate     end;    procedure TStainedGlass.SetGlyph;     begin      FGlyph.Assign(Value);      Refresh     end;    procedure TStainedGlass.SetTransparency;     begin      if Value<>FTransparency then       begin        FTransparency:=Value;        TForm(Owner).Invalidate       end     end;    procedure TStainedGlass.SetTranspStyle;     begin      if Value<>FTranspStyle then       begin        FTranspStyle:=Value;        TForm(Owner).Invalidate       end     end;    function TStainedGlass.ConstantTransparency;     begin      Result:=FTransparency     end;    function TStainedGlass.HGTransparency;     begin      Result:=Transparency+Round((AltTransparency-Transparency)/W*X)     end;    function TStainedGlass.VGTransparency;     begin      Result:=Transparency+Round((AltTransparency-Transparency)/H*Y)     end;    function TStainedGlass.CustomTransparency;     begin      FOnGetTransparency(Self,X,Y,W,H,Result)     end;    procedure TStainedGlass.GlyphChanged;     begin      TForm(Owner).Invalidate     end;    procedure Register;     begin      RegisterComponents('SGlass', [TStainedGlass])     end;  end.

刀剑如梦 · 2003-09-21

代码不错呀！

xumin23 · 2003-09-21

拖动窗口后显示得时候有点慢

jmlwz · 2003-09-21

好长呀,我记得一本书是有做透明窗口的,<Delphi程序设计>清华大学出版社,蒋方帅:编著 是黑是面的,书的内容一般,你的要求里面好象有.

flamingo · 2003-09-21

不用这么复杂去翻译吧。网上多得看不过来。

kaida · 2003-09-21

将 Form 的 Alphablend 属性设为 true。然后调整 AlphablendValue 的值，即可 调整窗体的透明度。

yyanghhong · 2003-09-22

UpdateLayeredWindow 和SetLayeredWindowAttributes是win32标准函数. delphi可直接调用

kingqc · 2003-09-22

能支持98才是真的牛 我记得在一个比赛看见用汇编实现的 牛啊

althon64 · 2003-09-22

还要这么复杂啊？Delphi的TForm有属性设置的，不用写代码，看来大家都觉得从汇编写一个操作系统然后写一个Delphi最好了

wujingping · 2003-09-22

这个透明窗口的含义不是简单的重复D6-D7已经有的功能，而是将一张带透明通道的PNG图片直接平滑的显示在桌面上。大家不是经常讨论不规则窗口吗？可是那样窗口是有锯齿的，也不可能显示漂亮的发光啦阴影啦之类的。如果要渐变透明怎么办？用图片来控制透明度是真正解决问题的方法。其实这一段C#程序有用的部分并不多，因为有大量代码是在描述软件界面，作者想一个文件搞定一切，所以才这样，我在google上搜了很久才找到一篇是我想要的东西，好多人对这个东西并没有看清楚，其实要让一个窗口半透明只要用到SetLayeredWindowAttributes 这个API,不需要用UpdateLayeredWindow，如果要做图片控制透明/半透明则一定要用UpdateLayeredWindow，我在google上搜索了好多有关代码，在大富翁上也找了不少，很多人在前面都把UpdateLayeredWindow声明好了，程序里面却根本没有用到过，不知是否仔细思考过，还是人云亦云的"COPY"了过来呢？ 有多少人真的下载了我的DEMO文件运行了呢？

onlyonekgx · 2003-09-22

.NET 本来窗体就有这个属性设置,还用得着写代码?

kimlon · 2003-09-22

那么长，狂晕呀。。。

bottom · 2003-09-22

高手如云！

TonSon · 2003-09-22

wujingping · 2003-09-22

终于搞定，ftp://temp:temp@211.154.84.185/ddd.rar ,大约1.6M，exe和dll解压到同一文件夹下，“./images/” 里面有15张PNG图片，运行一下，很好看的，我用三维做的。 技术上的问题基本解决，CPU占用也不多。

fly-king · 2003-09-22

你们研究过delphi的源代码吗 在forms.pas中,有关于AlphaBlend的部分 我把他们摘出来,让大家看一看 TCustomForm = class(TScrollingWinControl) private   ... ...   FAlphaBlend: Boolean;   FAlphaBlendValue: Byte;   ... ...   procedure SetAlphaBlend(const Value: Boolean);   procedure SetAlphaBlendValue(const Value: Byte);   ... ...   procedure SetLayeredAttribs;   ... ... protected   ... ...   property AlphaBlend: Boolean read FAlphaBlend write SetAlphaBlend;   property AlphaBlendValue: Byte read FAlphaBlendValue write SetAlphaBlendValue;   ... ...   ... ... end; procedure TCustomForm.SetAlphaBlend(const Value: Boolean); begin   if FAlphaBlend <> Value then   begin     FAlphaBlend := Value;     SetLayeredAttribs;   end; end; procedure TCustomForm.SetAlphaBlendValue(const Value: Byte); begin   if FAlphaBlendValue <> Value then   begin     FAlphaBlendValue := Value;     SetLayeredAttribs;   end; end; procedure TCustomForm.SetLayeredAttribs; const   cUseAlpha: array [Boolean] of Integer = (0, LWA_ALPHA);   cUseColorKey: array [Boolean] of Integer = (0, LWA_COLORKEY); var   AStyle: Integer; begin   if not (csDesigning in ComponentState) and     (Assigned(SetLayeredWindowAttributes)) and HandleAllocated then   begin     AStyle := GetWindowLong(Handle, GWL_EXSTYLE);     if FAlphaBlend or FTransparentColor then     begin       if (AStyle and WS_EX_LAYERED) = 0 then         SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);       SetLayeredWindowAttributes(Handle, FTransparentColorValue, FAlphaBlendValue,         cUseAlpha[FAlphaBlend] or cUseColorKey[FTransparentColor]);     end     else     begin       SetWindowLong(Handle, GWL_EXSTYLE, AStyle and not WS_EX_LAYERED);       RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_FRAME or RDW_ALLCHILDREN);     end;   end; end;   ...  ... procedure InitProcs; const   sUser32 = 'User32.dll'; var   ModH: HMODULE; begin   ModH := GetModuleHandle(sUser32);   if ModH <> 0 then      @SetLayeredWindowAttributes := GetProcAddress(ModH, 'SetLayeredWindowAttributes'); end;  ... ...  ... ... initialization   InitProcs; 这是真对于窗体的,其他的控件,也是这个样子的 知道了吗

tysun · 2003-09-22

wujingping  你好，你的那个例子是用DELPHI做的吗？如果是DELPHI做的，能不能 把源码给我发一个，学习研究。谢谢！ lovezuere@sina.com

wujingping · 2003-09-22

我用了gdi+引擎，程序还在修改，先贴出一部分关键的吧。 找个gdi+引擎先看看，不然其他部分也不明白。 Function UpdateLayeredWindow(hWnd : HWND;                             hdcDst : HDC; pptDst : PPoint; psize : PSize;                             hdcSrc : HDC; pptSrc : PPoint;                             crKey  : COLORREF;                             pblend : PBlendFunction;                             dwFlags : DWORD): BOOL; stdcall; //-------------------------------------------------------- const   WS_EX_LAYERED = $80000;   LWA_COLORKEY  = 1;   LWA_ALPHA     = 2;   ULW_COLORKEY  = 1;   ULW_ALPHA     = 2;   ULW_OPAQUE    = 4; //-------------------------------------------------------- var   Form1: TForm1;   bmp, old_bmp : HBITMAP;   DC : HDC;   bitmap:array[1..15] of tgpbitmap;   j:integer; //--------------------------------------------------------- Function UpdateLayeredWindow; external 'user32.dll'; //-------------------------------------------------------- procedure TForm1.Timer1Timer(Sender: TObject); var   pt1, pt2 : TPoint;   sz : TSize;   bf : TBlendFunction; begin   if j>15 then j:=1;   pt1 := Point(left, top);   pt2 := Point(0, 0);   sz.cx := bitmap[1].GetWidth;   sz.cy := bitmap[1].GetHeight;   bf.BlendOp := AC_SRC_OVER;   bf.BlendFlags := 0;   bf.SourceConstantAlpha := $ff;   bf.AlphaFormat := AC_SRC_ALPHA;   //-----------------------------------   DeleteObject(bmp);   [red]bitmap[j].GetHBITMAP(0,bmp);[/red]   DeleteDC(DC);   [red]DC := CreateCompatibleDC(Canvas.Handle);[/red]   old_bmp := SelectObject(DC, bmp);   [red]UpdateLayeredWindow(Handle, Canvas.Handle, @pt1, @sz, DC, @pt2,0, @bf,ULW_ALPHA);[/red]   j:=j+1; end;

LovingTse · 2003-09-22

wujingping的代码不知道在98下能不能运行， 不过SetLayeredWindowAttributes和Delphi的Alphablend、AlphablendValue在98下绝对不行 因为那函数只有在2K以上才可以的，可是我贴的那控件就可以在98下运行，虽然拖动后太恶心了点[

]

终于找到了完美的透明窗口源代码，不过是c#的，有谁为大家造福，翻译成delphi！！(50分)

wujingping

Unregistered / Unconfirmed

LovingTse

Unregistered / Unconfirmed

刀剑如梦

Unregistered / Unconfirmed

xumin23

Unregistered / Unconfirmed

jmlwz

Unregistered / Unconfirmed

flamingo

Unregistered / Unconfirmed

kaida

Unregistered / Unconfirmed

yyanghhong

Unregistered / Unconfirmed

kingqc

Unregistered / Unconfirmed

althon64

Unregistered / Unconfirmed

wujingping

Unregistered / Unconfirmed

onlyonekgx

Unregistered / Unconfirmed

kimlon

Unregistered / Unconfirmed

bottom

Unregistered / Unconfirmed

TonSon

Unregistered / Unconfirmed

wujingping

Unregistered / Unconfirmed

fly-king

Unregistered / Unconfirmed

tysun

Unregistered / Unconfirmed

wujingping

Unregistered / Unconfirmed

LovingTse

Unregistered / Unconfirmed

Similar threads