我在TSTRINGGRID中输入信息时其字体大小如下所示，字体太小，怎样可以控制输入时的字体大小。多谢指教。

Hi cxg,    更改 StringGrid 的 Font.Size 屬性即可

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Font.Size := 14;
end;

若是只是改變特定欄位的字體大小，可於 OnDrawCell 事件中自行加入程式碼重繪即可 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi cxg, 更改 StringGrid 的 Font.Size 屬性即可

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Font.Size := 14;
end;

若是只是改變特定欄位的字體大小，可於 OnDrawCell 事件中自行加入程式碼重繪即可 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 这样是可以改变字体大小，但是如果在输入时还是象左边图片上的那样小了。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ARow>0) and (ACol=1) then
  begin
    With StringGrid1.Canvas do
    begin
      Font.Color := ClWhite;
      Font.Size  := 14;
      TextRect(Rect, Rect.Left 2, Rect.Top 2, StringGrid1.Cells[ACol, ARow]);
    end;
  end;
end;

至於在編輯模式下，可於 OnSelectCell 中 判斷 EditorMode 並設定 Font.Size 及還原 Font.Size。 沒什麼好補充的！ Fishman 兄說明的簡明精要多了。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～ 發表人 - wameng 於 2005/07/19 15:12:12

引言:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ARow>0) and (ACol=1) then
  begin
    With StringGrid1.Canvas do
    begin
      Font.Color := ClWhite;
      Font.Size  := 14;
      TextRect(Rect, Rect.Left 2, Rect.Top 2, StringGrid1.Cells[ACol, ARow]);
    end;
  end;
end;

至於在編輯模式下，可於 OnSelectCell 中 判斷 EditorMode 並設定 Font.Size 及還原 Font.Size。 沒什麼好補充的！ Fishman 兄說明的簡明精要多了。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～ 發表人 - wameng 於 2005/07/19 15:12:12

wameng您好， 我试了一下还是不行，可以告诉我具体的实现方法吗？非常感谢。