字符串网格代码的问题（居中对齐）

Question

Delphi：如何制作单元格的文本在 TStringGrid 中心对齐？

当我使用顶部代码（OnDraw 部分）时，它不会删除第一个文本并在旧文本上写入新文本，一个 sel 将重复。

Answer 1

在写出新文本之前，您需要添加对 TCanvas.FillRect 的调用：

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  S: String;
begin
  S := StringGrid1.Cells[ACol, ARow];
  StringGrid1.Canvas.FillRect(Rect);
  SetTextAlign(StringGrid1.Canvas.Handle, TA_CENTER);
  StringGrid1.Canvas.TextRect(Rect,
    Rect.Left + (Rect.Right - Rect.Left) div 2, Rect.Top + 2, S);
end;

请注意，您还必须确保将 TStringGrid.DefaultDrawing 设置为 False 才能使其正常工作。