Delphi：透明或渐变框架

Question

我有一个表单，并在 Paint 事件上用渐变来绘制它。我也有那个表格上的框架。我希望框架是透明的，以查看表单的渐变，或者如果透明度不可用，则用渐变绘制框架。

表格和框架不能闪烁:)

怎么做到的？谢谢。

编辑：

正如我所见，框架的透明度存在闪烁。所以现在对我来说最好的解决方案是重写 TFrame1.PaintWindow(DC: HDC) 并用渐变绘制框架的背景。

Answer 1

这是在框架中获得透明度的技巧，如下所述： 如何使-delphi-tframe-background-透明。

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;

更新：

David 建议将 WS_EX_COMPOSITED 添加到样式中，以避免调整大小时出现闪烁。
这应该添加到所有控件中。