我做一个小窗体，想让鼠标移进时不透明，移出时透明

Question

rt

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    { Private declarations }
    procedure CMMouseEnter(var aMsg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var aMsg: TMessage); message CM_MOUSELEAVE;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
{ TForm1 }procedure TForm1.CMMouseEnter(var aMsg: TMessage);
begin
  self.AlphaBlend := false;
end;procedure TForm1.CMMouseLeave(var aMsg: TMessage);
begin
  self.AlphaBlend := true;
  self.AlphaBlendValue := 125;
end;end.

Answer 2

用此方法时，在窗体上放一个能接受焦点的如TEdit等，放在窗体可视范围之外，然后再设窗体之AutoScroll为False就OK了；这种方法会有一些闪烁，希望楼下能有更好的方法

Answer 3

WIN98 下楼上的代码被忽略......

Answer 4

可不可以只让标题栏和菜单实现透明变换，就像wmp一样