窗口透明(50)

unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, pngimage;type TFrmMain = class(TForm) Image2: TImage; Image3: TImage; Image1: TImage; private PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND; public end;var FrmMain: TFrmMain implementation{$R *.dfm}procedure TFrmMain.CMEraseBkgnd(var Message: TWMEraseBkgnd);begin brush.style:=bsClear; Inherited;end;end.为什么在窗口移动或切换窗口时不能自动刷新 要怎么样弄一下，谢谢

直接设窗口的TransparentColor好了

你都没有去绘制, 怎么会刷新?

怎么绘制，哪位大哥给个示例代码

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3939296关键API UpdateLayeredWindow

多人接受答案了。