procedure TForm1.sgCalenderDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s, item: string;
  d: TStringGrid;
  I,num: Integer;
begin
  d := TStringGrid(sender);
  s := d.Cells[ACol, ARow];
  begin
    d.Canvas.Font.Assign(d.Font); //制定字体
    with d.Canvas do
    begin
      Brush.Color := clWindow; //制定单元格颜色
      if gdFixed in State then     
        Brush.Color := d.FixedColor;

      Font.Color := clWindowText;

      FillRect(Rect);
      with d do
      begin
        num:=0;
        //根据'|' 字符换行
        if Pos( '|',s) >0 then
        begin
          for I := 0 to Length(s) - 1 do
          begin
            if s[i] <> '|' then
            begin
              item := item + s[i];
            end
            else
            begin   
              Rect.Top := Rect.Top + num * 30;
              DrawText(Canvas.Handle, PChar(trim(item)), Length(Trim(item)), Rect, DT_Left or DT_SINGLELINE or DT_VCENTER);
              item := '';
              Inc(num);
            end; 
          end;
          if item<>'' then
          begin
             Rect.Top := Rect.Top + 30;
             DrawText(Canvas.Handle, PChar(trim(item)), Length(Trim(item)), Rect, DT_Left or DT_SINGLELINE or DT_VCENTER);              
          end;            
        end
        else
        begin
        // Draw Fixed Row Col
           DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_CENTER or DT_SINGLELINE or DT_VCENTER);
        end;
      end;
    end;
  end;

end;