procedure TGlass.SetColor(Value: TColor);
begin
  if Value FColor then
  begin
    FColor := Value;
    RecreateWnd;
  end;
end;

procedure TGlass.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);

  Params.ExStyle := Params.ExStyle + WS_EX_TRANSPARENT;
end;

procedure TGlass.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  Invalidate;

  inherited;
end;

procedure TGlass.WMEraseBkgnd(var Message: TMessage);
begin
  Message.Result := 0;
end;

procedure TGlass.Resize;
begin
  Invalidate;

  inherited;
end;

procedure TGlass.CMCtl3DChanged(var Message: TMessage);
begin
  inherited;

  RecreateWnd;
end;

procedure TGlass.SetStyle(Value: TGlassStyle);
begin
  if Value FStyle then
  begin
    FStyle := Value;
    RecreateWnd;
  end;
end;

end.