{
Создано: Dennis Passmore
  1929 Mango Tree Drive
  Edgewater, Fl. 32141
  CIS: 71640,2464
  Март 1, 1996
Данный код свободен в использовании при одном условии:
в исходном коде должна присутствовать указанная выше кредитка
со ссылкой на автора.
Примечание по использованию кода:
Всякий раз при удалении Row (строки) или Column (колонки)
проверяйте наличие и удаляйте любые объекты, которые могли
быть назначены любой ячейке в строке или колонке, которые вы
собираетесь удалять, поскольку данный код не может знать ни
размера, ни типа ассигнованных ими объектов.
}
unit GridFunc;
interface
uses
 Sysutils, WinProcs, Grids;
procedure InsertRow(Sender: TStringGrid; ToIndex: Longint);
procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint);
procedure InsertColumn(Sender: TStringGrid; ToIndex: Longint);
procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint);
implementation
type
 TCSGrid = class(TStringGrid)
 private
 public
  procedure MoveRow(FromIndex, ToIndex: Longint);
  procedure MoveColumn(FromIndex, ToIndex: Longint);
 end;
procedure TCSGrid.MoveRow(FromIndex, ToIndex: Longint);
begin
 RowMoved(FromIndex, ToIndex); { Защищенный метод TStringGrid }
end;
procedure TCSGrid.MoveColumn(FromIndex, ToIndex: Longint);
begin
 ColumnMoved(FromIndex, ToIndex); { Защищенный метод TStringGrid }
end;
procedure InsertRow(Sender: TStringGrid; ToIndex: Longint);
var
 xx, yy: Integer;
begin
 if ToIndex >= 0 then
  with TCSGrid(Sender) do
  if (ToIndex <= RowCount) then
  begin
  RowCount := RowCount + 1;
  xx := RowCount - 1;
  for yy := 0 to ColCount - 1 do
  begin
  Cells[yy, xx] := ' ';
  ObJects[yy, xx] := nil;
  end;
  if ToIndex < RowCount - 1 then
  MoveRow(RowCount - 1, ToIndex);
  end
  else
  MessageBeep(0)
  else
  MessageBeep(0);
end;
procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint);
begin
 if FromIndex > l;
 = 0 then
  with TCSGrid(Sender) do
  if (RowCount > 0) and (FromIndex < RowCount) then
  begin
  if (FromIndex < RowCount - 1) then
  MoveRow(FromIndex, RowCount - 1);
  Rows[RowCount - 1].Clear;
  RowCount := RowCount - 1;
  end
  else
  MessageBeep(0)
  else
  MessageBeep(0);
end;
procedure InsertColumn(Sender: TStringGrid; ToIndex: Longint);
var
 xx, yy: Integer;
begin
 if ToIndex >= 0 then
  with TCSGrid(Sender) do
  if (ToIndex <= ColCount) then
  begin
  ColCount := ColCount + 1;
  xx := ColCount - 1;
  Cols[xx].BeginUpdate;
  for yy := 0 to RowCount - 1 do
  begin
  Cells[xx, yy] := ' ';
  ObJects[xx, yy] := nil;
  end;
  Cols[xx].EndUpdate;
  if ToIndex < ColCount - 1 then
  MoveColumn(ColCount - 1, ToIndex);
  end
  else
  MessageBeep(0)
  else
  MessageBeep(0);
end;
procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint);
begin
 if FromIndex >= 0 then
  with TCSGrid(Sender) do
  if (ColCount > 0) and (FromIndex < ColCount) then
  begin
  if (FromIndex < ColCount - 1) then
  MoveColumn(FromIndex, ColCount - 1);
  Cols[ColCount - 1].Clear;
  ColCount := ColCount - 1;
  end
  else
  MessageBeep(0)
  else
  MessageBeep(0);
end;
end.

// For this tip you need a StringGrid1 and a Button1.
// Fur diesen Tip braucht man ein StringGrid1 und einen Button1.

{...}
 type
  TForm1 = class(TForm)
  StringGrid1: TStringGrid;
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
  private
  {...}
  public
  {...}
  end;
 type
  TStringGridHack = class(TStringGrid)
  protected
  procedure DeleteRow(ARow: Longint); reintroduce;
  procedure InsertRow(ARow: Longint);
  end;
 var
  Form1: TForm1;
 implementation
 {$R *.DFM}
 procedure TStringGridHack.DeleteRow(ARow: Longint);
 var
  GemRow: Integer;
 begin
  GemRow := Row;
  if RowCount > FixedRows + 1 then
  inherited DeleteRow(ARow)
  else
  Rows[ARow].Clear;
  if GemRow < RowCount then Row := GemRow;
 end;
 procedure TStringGridHack.InsertRow(ARow: Longint);
 var
  GemRow: Integer;
 begin
  GemRow := Row;
  while ARow < FixedRows do Inc(ARow);
  RowCount := RowCount + 1;
  MoveRow(RowCount - 1, ARow);
  Row := GemRow;
  Rows[Row].Clear;
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 begin
  // Insert Row, Zeile hinzufugen
 TStringGridHack(StringGrid1).InsertRow(1);
  // Remove Row, Zeile entfernen
 TStringGridHack(StringGrid1).DeleteRow(2);
 end;
 end.