Delphi: 透明或梯度框架

type

 TMyFrame = class/TFrame/

 procedure CreateParams/var Params: TCreateParams/;override;

 procedure PaintWindow/DC: HDC/; override;

 public

 constructor Create/AOwner:TComponent/;override;

 end;



constructor TMyFrame.Create/AOwner: TComponent/;

begin

 inherited;

 Brush.Style := bsClear;

end;



procedure TMyFrame.CreateParams/var Params: TCreateParams/;

begin

 inherited;

 Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT or WS_EX_COMPOSITED;

end;



procedure TMyFrame.PaintWindow/DC: HDC/;

begin

 // Do not remove this comment to keep transparancy

end;

WS_EX_COMPOSITED