在单元格中输入数据时更改 StringGrid 的单元格颜色。 德尔福

Question

晚上好，我想知道如何在写入数据时更改单元格的颜色

我有这个...

procedure TFrmReportes.SGDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

   if (gdSelected in State) then
      begin
      SG.Canvas.Brush.Color := rgb(255,119,119);
      SG.Canvas.FillRect(SG.CellRect(ACol, ARow));
      SG.Canvas.TextOut(Rect.Left+2,Rect.Top+2, SG.Cells[ACol, ARow]);

      end;
end;

但是在单元格中输入数据时，它变成白色

再次感谢！！！

Answer 1

TStringGrid在当前正在编辑的单元格顶部显示一个TInplaceEdit 。 TInplaceEdit覆盖了整个单元格。 这就是为什么您看不到自定义绘图的原因。 您需要改为更改TInplaceEdit的Color属性。 您可以通过TStringGrid.InplaceEditor属性访问TInplaceEdit 。

我建议从TStringGrid派生一个新组件并覆盖它的虚拟CreateEditor()方法。 如果您的表单中只有 1 个网格，那么一个简单的插入器就足够了，例如：

type
  TStringGrid = class(Vcl.Grids.TStringGrid)
  protected
    function CreateEditor: TInplaceEdit; override;
  end;

  TFrmReportes = class(TForm)
    SG: TStringGrid;
    ...
  end;

...

type
  TInplaceEditAccess = class(TInplaceEdit)
  end;

function TStringGrid.CreateEditor: TInplaceEdit;
begin
  Result := inherited CreateEditor;
  TInplaceEditAccess(Result).Color := RGB(255, 119, 119);
end;

Answer 2

由于您在上一个示例中使用 InplaceEditor 属性提出的建议，我发现以下代码对我有用

type
    THackGrid = class(TCustomGrid)
    public
      property InPlaceEditor;
      property EditorMode;
    end;

TFrmReportes = class(TForm)
    SG: TStringGrid;
    ...
  end;

...

procedure TFrmReportes.Button1Click(Sender: TObject);
begin
   THackGrid(SG).InPlaceEditor.Brush.Color := RGB(255, 119, 119);
end;

非常感谢你