StringGrid指定某行列的背景和字型顏色

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s: String;
R: TRect;
begin
with StringGrid1 do
begin
if   ARow=0 then Canvas.Font.Color := clWhite;
if   ACol=0 then Canvas.Font.Color := clWhite;
if Cells[ACol,ARow] = '變色' then //找到內容為'變色'的儲存格然後進行設定
begin
Canvas.Font.Color := clMaroon; //字型顏色
Canvas.Brush.color:=clMoneyGreen; //背景顏色
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
end;
Canvas.FillRect(Rect);
S := Cells[ACol,ARow];
R := Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER); //文字置中
end;