Содержание материала

 

Code:

procedure TForm1.Button3Click(Sender: TObject);

var

i,j: Integer;

begin

j:=SG1.Row; // строка с выделением

SG1.Rows[j].Clear;

for i:=j to SG1.RowCount-2 do

   SG1.Rows[i].Assign(SG1.Rows[i+1]);

SG1.RowCount:=SG1.RowCount-1;

end;

 

 

Code:

type

  TStringGridHack = class(TStringGrid)

  public

    procedure DeleteCol(ACol: Longint);

  end;

 

var

  Form1: TForm1;

 

implementation

 

 

procedure TStringGridHack.DeleteCol(ACol: Longint);

begin

  if ACol = FixedCols then if ACol = (ColCount - 1) then

    begin

      Cols[ACol].Clear;

      if ColCount(FixedCols + 1) then ColCount := (ColCount - 1);

    end

    else

    begin

      Cols[ACol] := Cols[ACol + 1];

      DeleteCol(ACol + 1);

    end;

end;

 

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить