1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; Const Value: String);
Begin

 
  If (ARow= StringGrid1.RowCount-1) Then
    If Value<> '' Then StringGrid1.RowCount:= StringGrid1.RowCount+1;


End;					

1:

If (ARow= StringGrid1.RowCount-1) AND (Value<> '') Then StringGrid1.RowCount:= StringGrid1.RowCount+1;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

// SetEditText Ereignis

Procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; Const Value: String);
Begin

  If (ARow= StringGrid1.RowCount-1) AND (Value<> '') Then StringGrid1.RowCount:= StringGrid1.RowCount+1;
  // Optimiert bei UGrohne ;-)

End;



// OnClick Ereignis ReadOnly nur bei letzter Zeile aufheben

Procedure TForm1.StringGrid1Click(Sender: TObject);
Begin

  If (StringGrid1.Row= StringGrid1.RowCount-1) Then
    StringGrid1.Options:= StringGrid1.Options+[goEditing]
  Else StringGrid1.Options:= StringGrid1.Options-[goEditing];

End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

  private der Form
    { Private-Deklarationen }
    Foldrow, Foldcol:integer;  //letzte Zellen position
...

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Foldrow:=0;
  foldcol:=0;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  with sender as TStringGrid do
    begin
      if (foldcol=colcount-1) and (foldrow=rowcount-1) and (cells[foldcol,foldrow]<>'') then rowcount:=rowcount+1;
      foldrow:=arow;
      foldcol:=acol;
    end;
end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //und auch wenn enter gedrückt wird
  with sender as tstringgrid do
  if key=vk_return then if (col=colcount-1) and (row=rowcount-1) and (cells[col,row]<>'') then rowcount:=rowcount+1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with sender as tstringgrid do
    if key=vk_return then
      if (col=colcount-1) and (row=rowcount-1) and (cells[col,row]<>'') then
        begin
          rowcount:=rowcount+1;
          row:=rowcount-1;
          col:=1;
        end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  with sender as TStringGrid do
    begin
      if (col=colcount-1) and (row=rowcount-1) and (cells[col,row]<>'') then
        rowcount:=rowcount+1;
    end;
end;