Delphi Stringgrid单元格居中方法

原创已于 2023-05-23 14:41:22 修改 · 1.4k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#开发语言

收录于

于 2023-05-23 10:45:09 首次发布

delphi 专栏收录该内容

6 篇文章

订阅专栏

通过设置StringGrid的options属性，关闭goFixedColDefAlign和goFixedRowDefAlign，然后在FormResize事件中循环设置所有列的ColAlignments为taCenter，可以简便地实现所有单元格的居中对齐。若需调整其他对齐方式，只需将taCenter替换为taLeft或taRight。

网上有很多教stringgrid单元格居中的方法，基本都是通过drawcell的方式，太麻烦了！！！

下面重点来了！！！！

stringgrid的options属性中，把goFixedColDefAlign和goFixedRowDefAlign设置为false，然后在窗口的formResize中写入如下代码，就可以让所有单元格居中了，如果需要靠左或靠右，只要把taCenter改为taLeft或taRight就可以了。

procedure Tfrm_Main.FormResize(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to SG_Main.ColCount - 1 do
  begin
    SG_Main.ColAlignments[I] := taCenter;
  end;
end；