TCustomTransparentControl控件不透明求助：如何实现底层控件穿透显示？

问题根源 #

TCustomTransparentControl的默认“透明”仅实现了继承父控件背景色，并非真正的透明——它本质仍是不透明窗口，会覆盖在下层兄弟控件之上，导致底层控件无法透过显示。

解决方案 #

通过调整控件样式和窗口扩展属性，实现真正的透明效果，让底层控件穿透显示：

修改后的完整控件代码

TTransparentControl = class(TCustomTransparentControl)
protected
  procedure Paint; override;
  procedure CreateParams(var Params: TCreateParams); override;
public
  constructor Create(AOwner: TComponent); override;
end;

constructor TTransparentControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // 移除csOpaque标记，告知VCL控件非完全不透明
  ControlStyle := ControlStyle + [csAcceptsControls, csClickEvents] - [csOpaque];
  // 若需底层控件响应鼠标事件，设为False；若需本控件拦截鼠标，保持True
  InterceptMouse := False;
  Width := 150;
  Height := 150;
end;

procedure TTransparentControl.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  // 添加WS_EX_TRANSPARENT扩展样式，让Windows识别控件为透明，不遮挡下层绘制
  Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TTransparentControl.Paint;
begin
  // 无需调用inherited，避免绘制父背景覆盖底层控件
  // 仅绘制需要显示的内容，其余区域自动透明
  Canvas.TextOut(10, 10, 'I am here');
end;

// 按钮点击代码保持不变
panel := TTransparentControl.Create(Self);
panel.Parent := Self;
panel.Left := 100;
panel.Top := 100;
panel.Visible := True;

关键修改说明

• 移除csOpaque：取消控件的“完全不透明”标记，让VCL不再强制填充整个控件背景。
• 添加WS_EX_TRANSPARENT：Windows系统会优先绘制该控件下方的所有窗口，再绘制本控件的内容，实现真正的视觉穿透。
• 调整Paint方法：去掉inherited调用，避免父背景绘制覆盖底层控件，仅绘制自身需要显示的内容（如文本）。
• InterceptMouse设置：若需要底层控件响应鼠标点击，需将其设为False；若需本控件拦截鼠标事件，保持True即可。

内容的提问来源于stack exchange，提问作者Arcus