cxRadioButton不显示焦点矩形虚线框

最新推荐文章于 2017-06-13 15:01:24 发布

踏雪无痕

最新推荐文章于 2017-06-13 15:01:24 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： DevExpress VCL

本文链接：https://blog.youkuaiyun.com/zengcong2013/article/details/17397235

DevExpress VCL 专栏收录该内容

8 篇文章

订阅专栏

本文介绍如何在cxRadioButton控件中移除点击后显示的焦点矩形虚线框。通过在cxRadioGroup.pas文件的TcxRadioButton.DrawCaption过程中注释掉ACanvas.Canvas.DrawFocusRect(R)这一行代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在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;