在Firemonkey StringGrid更改文字大小(Change text size in F

如何更改文字大小stringgrid头？

Answer 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;

Answer 2:

如何在StringGrid中的RAD Studio XE3改变字体大小 - FM2 Firemonkey 2不firemonkey 1

文章来源: Change text size in Firemonkey StringGrid