//StringGrid隔行颜色代码 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with StringGrid1 do begin if ARow mod 2 = 0 then begin Canvas.Brush.Color := RGB(255,255,255); Canvas.Font.Color:=clGreen; end else begin Canvas.Brush.Color := RGB(191, 255, 223); Canvas.Font.Color:=clRed; end; Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left + 2,Rect.Top + 2, Cells[ACol,ARow]); end; if gdSelected in State then begin Canvas.Brush.Color := clHighlight; // 选中时的背景色; Canvas.Font.Color := clHighlightText; // 选中项的文字颜色; end; end;