透明组框

Question

我继承自Delphi原生控件的TGroupBox并覆盖其Paint方法以绘制圆角矩形。

   procedure TclTransparentGroupBox.CreateParams(var params : TCreateParams);
   begin
     inherited;
     Params.ExStyle := params.ExStyle or WS_EX_TRANSPARENT;
   end;

覆盖Create params后，Paint方法如下所示。

   procedure TclTransparentGroupBox.Paint;
   begin
     // Draw the rounded rect to show the group box bounds
     Canvas.Pen.Color := clWindowFrame;
     Canvas.RoundRect(5, 15, ClientRect.Right - 5, ClientRect.Bottom - 5, 10, 10);
     if Caption <> EmptyStr then
     begin
       Canvas.Brush.Style := bsClear;
       Canvas.TextOut(10, 0, Caption);
     end;
   end;

我面临的主要问题是，透明组框顶部的标签很少。当我打开表单时，标签看起来很好，但是当文本更改时，标签的一些边界矩形将是可见的。这在透明盒子上看起来很奇怪。

即使我调整表单大小，组框本身也会消失，当我将焦点更改为另一个应用程序并恢复我的应用程序时，组框会自行绘制。

我是否错过任何有关绘画的内容？我需要处理的任何Windows消息???

提前致谢 拉胡尔

Answer 1

要使控件透明，您必须：

使其不透明

ControlStyle := ControlStyle - [csOpaque]

处理WM_ERASEBKGND：

procedure TTransPanel.WM_ERASEBKGND(var Msg: TWM_ERASEBKGND); 
var
    SaveDCInd: Integer;
    Position: TPoint;
begin
    SaveDCInd := SaveDC(Msg.DC); 
    //save device context state (TCanvas does not have that func)
    GetViewportOrgEx(Msg.DC, Position);
    SetViewportOrgEx(Msg.DC, Position.X - Left, Position.Y - Top, nil);
    IntersectClipRect(Msg.DC, 0, 0, Parent.ClientWidth, Parent.ClientHeight);
    try
        Parent.Perform(WM_ERASEBKGND, Msg.DC, 0 );
        Parent.Perform(WM_PAINT, Msg.DC, 0);
        //or
        // Parent.Perform(WM_PRINTCLIENT, Msg.DC, prf_Client); //Themeing
    except
    end;       
    RestoreDC(Msg.DC, SaveDCInd);
    Canvas.Refresh;       
    Msg.Result := 1; //We painted out background
end;

在上面的过程中，您首先保存设备上下文状态，然后将我们的父（可能是TForm）的画布绘制到我们的画布上（TGroupBox）。最后恢复DC并返回1表示我们确实绘制了背景。