cxRadioButton不显示焦点矩形虚线框

在cxRadioGroup.pas文件中找到 procedure（存储过程）TcxRadioButton.DrawCaption，将ACanvas.Canvas.DrawFocusRect(R)注释掉就可以了。

procedure TcxRadioButton.DrawCaption(ACanvas: TcxCanvas; ANativeStyle: Boolean);  function GetDrawTextFlags: Integer;  begin    Result := cxAlignLeft or cxAlignVCenter or cxShowPrefix;    if WordWrap then      Result := Result or cxDontClip or cxWordBreak    else    begin      Result := Result or cxSingleLine;      if ShowEndEllipsis then        Result := Result or cxShowEndEllipsis;    end;  end;  procedure CheckFocusRect(var R: TRect);  begin    if IsInplace then    begin      R.Top := Max(R.Top, 1);      R.Bottom := Min(R.Bottom, Height - 1);      R.Right := Min(R.Right, Width);    end    else    begin      R.Left := Min(R.Left, 0);      R.Top := Min(R.Top, 0);      R.Right := Min(R.Right, Width);      R.Bottom := Min(R.Bottom, Height);      if (Alignment = taLeftJustify) then        R.Right := Min(ButtonRect.Left, R.Right);    end;  end;var  AFlags: Integer;  R: TRect;begin  AdjustCanvasFontSettings(ACanvas);  R := TextRect;  ACanvas.Brush.Style := bsClear;  AFlags := GetDrawTextFlags;  if IsNativeBackground then    ACanvas.Canvas.Refresh;  ACanvas.DrawText(Caption, R, AFlags, IsDisabledTextColorAssigned or    Supports(Self, IcxContainerInnerControl) or ANativeStyle or Enabled);  ACanvas.Brush.Style := bsSolid;  if Focused and (Caption <> '') then  begin    ACanvas.TextExtent(Caption, R, AFlags);    InflateRect(R, 1, 1);    Inc(R.Bottom);    if IsInplace then      CheckFocusRect(R);    ACanvas.Brush.Color := Color;    ACanvas.Font.Color := Font.Color;    TCanvasAccess(ACanvas.Canvas).RequiredState([csFontValid]);//    ACanvas.Canvas.DrawFocusRect(R);  取消（点击radiobutton）获取焦点后出现矩形虚线框  end;end;