delphi - 如何从 Delphi DBGrid OnTitleClick 事件中删除黑线？

我有一个 Delphi DBGrid，它第一次加载时看起来很正常。我已经设置了一个 OnTitleClick 事件，该事件在单击标题时按列对 DBGrid 进行排序。一旦您单击标题，列标题就像一个按钮被按下并出现一条丑陋的黑线。 (见下图2)

一旦点击事件完成，网格看起来又正常了。

怎么防止点击列标题时出现这条黑线？

编辑:QC 提交给 Embarcadero

虽然关闭调整列大小的能力确实会使黑线行为消失，但它确实带走了一个非常好的功能。我认为这种行为需要修复。我已向 Embarcadero 提交了以下 QC 98255。请为这个条目投票。

更新:2017-07-30

我找到了这条水平黑线的绘制位置。
Vcl.Grids > 程序 TCustomGrid.DrawMove;

Canvas.Pen.Width 设置为 5。我改变了它，所以 Canvas.Pen.Width := 1;
它看起来好多了。现在，当我单击“Contact_Last”标题单元格时，黑色指示线只有一个像素宽，而且干扰性要小得多。

procedure TCustomGrid.DrawMove;
var
  OldPen: TPen;
  Pos: Integer;
  R: TRect;
begin
  OldPen := TPen.Create;
  try
    with Canvas do
    begin
      OldPen.Assign(Pen);
      try
        Pen.Style := psDot;
        Pen.Mode := pmXor;
        //+----------------------------------------------------------------+
        // Modified 2017-07-30 by Michael J Riley (MJR)
        // Changed Pen.Width from 5 to 1
        // This makes the vertical black move-indicator line 1 pixel wide
        // Which is the same width as column resize vertical line
        //+----------------------------------------------------------------+
        //Pen.Width := 5;
        Pen.Width := 1;
        if FGridState = gsRowMoving then
        begin
          R := CellRect(0, FMovePos);
          if FMovePos > FMoveIndex then
            Pos := R.Bottom else
            Pos := R.Top;
          MoveTo(0, Pos);
          LineTo(ClientWidth, Pos);
        end
        else
        begin
          R := CellRect(FMovePos, 0);
          if FMovePos > FMoveIndex then
            if not UseRightToLeftAlignment then
              Pos := R.Right
            else
              Pos := R.Left
          else
            if not UseRightToLeftAlignment then
              Pos := R.Left
            else
              Pos := R.Right;
          MoveTo(Pos, 0);
          LineTo(Pos, ClientHeight);
        end;
      finally
        Canvas.Pen := OldPen;
      end;
    end;
  finally
    OldPen.Free;
  end;
end;

最佳答案

黑线看起来像一个列顺序插入标记。

尝试寻找禁用列重新排序的选项。

关于delphi - 如何从 Delphi DBGrid OnTitleClick 事件中删除黑线？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7218562/