Delphi 更改Firemonkey StringGrid中的文本大小

如何更改stringgrid标题中的文本大小

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

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;

---

如何在rad studio XE3中更改StringGrid的字体大小-FM2 Firemonkey 2而不是Firemonkey 1

谢谢您的回答。如果答案解决了你的问题，我会考虑接受它，这对我有很大帮助。无论如何，欢迎来到StackOverflow！你应该单独问这个问题。