请教高手,stringgrid中怎么控制每行显示的个数?

Question

请教高手,stringgrid中怎么控制每行显示的个数?如总长为10个格子.第一行显示8个格子.第二行7个.第三行9个.

Answer 1

procedure TForm2.AdvStringGrid1GetCellBorder(Sender: TObject; ARow,
  ACol: Integer; APen: TPen; var Borders: TCellBorders);
begin
 if (arow>2) and (acol<>0)   then
      begin
       if arow=lastRecord-1 then
          exit else
          begin
            if arow=lastRecord-2 then
              begin
              apen.Width :=1;
              apen.Color :=clblue;
              borders :=[cbTop,cbRight,cbBottom];//,cbLeft,cbBottom
              end else
                    begin
                      apen.Width :=1;
                      apen.Color :=clblue;
                      borders :=[cbTop,cbRight,cbBottom];
                    end;
         end;     end ;  end;
参考下,隐藏单元格边框的,也许对你有所启发