更改文字大小StringGrid

Question

如何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

如何在公司的RAD Studio XE3在StringGrid改變字體大小 - FM2 Firemonkey 2不firemonkey 1