delphi中使用透明控件的几种方法

有时需要使用透明控件用于捕获鼠标消息

1.调用Windows2000,xp新的API函数实现这一功能的过程。使用SetLayeredWindowAttributes

2.直接设置控件的alphablend,alphablendvalue，间接调用上述api.

3.使用TStaticText控件

procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;

procedure TForm3.WMCtrlColor(var Message:TWMCtlColor);
begin
  if (Message.ChildWnd = StaticText1.Handle)then
  begin
   SetBkMode(Canvas.Handle,TRANSPARENT);
   Message.Result:=  GetStockObject(NULL_BRUSH);
  end;
end;

4.使用TShape或TLabel无句柄控件,transparent属性.