如何解决继承TComponent的透明组件不随父窗体移动/重绘问题？

问题出在你用独立TForm实现透明效果，但该窗体未与父窗体建立位置同步机制；设置Parent后丢失透明是因为Windows对子窗口的AlphaBlend有局限——标准子窗口不支持顶层窗口的完整透明效果。下面提供两种可行解决方案：

方案一：绑定父窗体消息，同步独立透明窗体位置 #

通过子类化父窗体，监听其位置、尺寸变化消息，实时更新透明窗体的位置和大小。

修改后的Transparent单元代码：

unit Transparent;

interface

uses
  Winapi.Windows,
  System.Classes,
  System.SysUtils,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Graphics;

type
  TTransparent = class(TComponent)
  private
    FParent     : TWinControl;
    FBackGround : TForm;
    FParentWndProc: Pointer; // 保存父窗体原窗口过程
    procedure CreateContainer;
    procedure SyncPosition;
    procedure ParentWndProc(var Message: TMessage); // 父窗体消息处理
  public
    procedure Show(aParent : TWinControl);
    procedure Close;
    destructor Destroy; override;
  end;

procedure Register;

implementation

{ TTransparent }

procedure Register;
begin
  RegisterComponents('Custom', [TTransparent]);
end;

destructor TTransparent.Destroy;
begin
  Close;
  inherited;
end;

procedure TTransparent.Close;
begin
  if (FParent <> nil) and Assigned(FParentWndProc) then
  begin
    // 恢复父窗体原窗口过程
    SetWindowLongPtr(FParent.Handle, GWL_WNDPROC, NativeInt(FParentWndProc));
    FParentWndProc := nil;
  end;
  FreeAndNil(FBackGround);
  FParent := nil;
end;

procedure TTransparent.CreateContainer;
begin
  if FParent = nil then
    FParent := Application.MainForm;

  FBackGround                 := TForm.Create(nil);
  FBackGround.AlphaBlend      := True;
  FBackGround.AlphaBlendValue := 200;
  FBackGround.BorderStyle     := bsNone;
  FBackGround.Color           := clBlack;
  FBackGround.FormStyle       := fsStayOnTop; // 确保在父窗体上方
  SyncPosition;
  FBackGround.Show;
end;

procedure TTransparent.SyncPosition;
var
  ParentClientRect: TRect;
begin
  if (FParent = nil) or (FBackGround = nil) then Exit;
  // 获取父窗体客户区屏幕坐标
  ParentClientRect := FParent.ClientRect;
  MapWindowPoints(FParent.Handle, 0, ParentClientRect, 2);
  // 设置透明窗体位置和大小
  SetWindowPos(FBackGround.Handle, HWND_TOP,
    ParentClientRect.Left, ParentClientRect.Top,
    ParentClientRect.Right - ParentClientRect.Left,
    ParentClientRect.Bottom - ParentClientRect.Top,
    SWP_NOACTIVATE or SWP_NOZORDER);
end;

procedure TTransparent.ParentWndProc(var Message: TMessage);
begin
  // 先调用父窗体原窗口过程
  Message.Result := CallWindowProc(FParentWndProc, FParent.Handle, Message.Msg, Message.WParam, Message.LParam);
  // 监听需要同步的消息
  case Message.Msg of
    WM_MOVE, WM_SIZE, WM_WINDOWPOSCHANGED, WM_PAINT:
      SyncPosition;
  end;
end;

procedure TTransparent.Show(aParent: TWinControl);
begin
  Close; // 先关闭已有的透明窗体
  FParent := aParent;
  CreateContainer;
  // 子类化父窗体，接管消息处理
  FParentWndProc := Pointer(SetWindowLongPtr(FParent.Handle, GWL_WNDPROC, NativeInt(@ParentWndProc)));
end;

end.

核心要点： #

• 子类化父窗体：通过SetWindowLongPtr替换父窗体的窗口过程，监听位置、尺寸变化消息（WM_MOVE、WM_SIZE等）触发同步逻辑。
• 坐标同步：将父窗体客户区坐标转换为屏幕坐标，精准设置透明窗体的位置和大小，确保完全覆盖父客户区。
• 资源清理：在Close或组件销毁时，必须恢复父窗体的原窗口过程，避免内存泄漏或异常。

方案二：改用TControl作为基类，直接实现透明控件 #

如果不需要独立窗口，建议直接继承TControl，通过重绘实现透明效果，天然支持随父控件同步移动。

修改后的Transparent单元代码：

unit Transparent;

interface

uses
  Winapi.Windows,
  System.Classes,
  System.SysUtils,
  Vcl.Controls,
  Vcl.Graphics;

type
  TTransparentControl = class(TControl)
  private
    FAlphaValue: Byte;
    procedure SetAlphaValue(Value: Byte);
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property AlphaValue: Byte read FAlphaValue write SetAlphaValue default 200;
    property Align;
    property Anchors;
    // 可添加其他需要的published属性
  end;

procedure Register;

implementation

{ TTransparentControl }

constructor TTransparentControl.Create(AOwner: TComponent);
begin
  inherited;
  FAlphaValue := 200;
  ControlStyle := ControlStyle + [csOpaque]; // 禁止默认背景绘制
end;

procedure TTransparentControl.Paint;
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.SetSize(ClientWidth, ClientHeight);
    // 绘制半透明背景
    Bmp.Canvas.Brush.Color := clBlack;
    Bmp.Canvas.FillRect(Rect(0, 0, ClientWidth, ClientHeight));
    // 用AlphaBlend绘制到控件画布
    Winapi.Windows.AlphaBlend(Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
      Bmp.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
      BLENDFUNCTION(AC_SRC_OVER, 0, FAlphaValue, AC_SRC_ALPHA));
  finally
    Bmp.Free;
  end;
end;

procedure TTransparentControl.SetAlphaValue(Value: Byte);
begin
  if FAlphaValue <> Value then
  begin
    FAlphaValue := Value;
    Invalidate;
  end;
end;

procedure Register;
begin
  RegisterComponents('Custom', [TTransparentControl]);
end;

end.

核心要点： #

• 继承TControl：作为父窗体的子控件，天然随父窗体移动、重绘，无需额外同步逻辑。
• AlphaBlend绘制：通过AlphaBlendAPI在Paint方法中绘制半透明背景，避免设置Parent丢失透明的问题。
• csOpaque风格：禁止控件默认的背景绘制，确保半透明效果正确显示。

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