更改 Firemonkey StringGrid 中的文本大小

【问题标题】：Change text size in Firemonkey StringGrid更改 Firemonkey StringGrid 中的文本大小
【发布时间】：2012-07-11 03:31:11
【问题描述】：

如何更改字符串网格标题中的文本大小？

【问题讨论】：

如果解决了您的问题，请考虑接受this way 的答案。不管怎样，欢迎来到 StackOverflow！

标签： delphi header firemonkey tstringgrid

【解决方案1】：

您可以编写一个类似于以下内容的OnApplyStyleLookup 事件处理程序：

procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject);
var
  Header: THeader;
  I: Integer;
begin
  Header := THeader((Sender as TStringGrid).FindStyleResource('header'));
  if Assigned(Header) then
  begin
    for I := 0 to Header.Count - 1 do
      with Header.Items[I].Font do
      begin
        Size := 32;
        Style := [TFontStyle.fsBold];
      end;
    Header.Height := 48;
  end;
  TStringGrid(Sender).Realign;
end;

【讨论】：

感谢您的回答。对我帮助很大