if ARow > 0 then
  begin
    if (ACol = 1) or (ACol = 7) then
    begin
      StringGrid1.Canvas.Brush.Color:=clAqua;
      StringGrid1.Canvas.FillRect(Rect);
    end;
  end;

begin
  // ...
  StringGrid1.Canvas.Font.Color := clBlack; // 指定字型色
  StringGrid1.Canvas.TextOut(0, 0, '日期字串');
end;

引言: 加兩行:

begin
  // ...
  StringGrid1.Canvas.Font.Color := clBlack; // 指定字型色
  StringGrid1.Canvas.TextOut(0, 0, '日期字串');
end;

啊..... 你這樣寫, 出來的字永遠會在左上角呀!!... 換成這個吧!! < class="code"> procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (ACol=1) or (ACol=7) then begin StringGrid1.Canvas.Brush.Color:=clAqua; StringGrid1.Canvas.FillRect(Rect); StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,'星期 ' inttostr(aCol)); end ; end; ...Aquarius

引言: 那我要如何才能抓到原來的日期呢