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

procedure TForm1.sgdEinstellungen1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 
case ARow of
 1: //reihe 1 .....
   begin
     if Length(sgdEinstellungen1.Cells[ACol,ARow]) > 12 then  sgdEinstellungen1.Cells[ACol,ARow] := 'max 12 Zeichen' ;
   end;
   
end;
end;					

1:
2:
3:
4:
5:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
     if Length(StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]) >= 12 then
        if Not(Key in [#8,#13]) then Key := #0;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
     for i := 0 to 2 do
      StringGrid1.Cells[0,i] := format('Name des Spielers %d',[i + 1]);
end;					

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

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Length(StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]) >= 12 then
        if Not(Key in [#8,#13]) then Key := #0;
if (Key in [#8,#13]) then Spielername :=  StringGrid1.Cells[Stringgrid1.Col,Stringgrid1.Row];
 //müsste ja nach Drücken auf Enter (#13) (?) speichern - oder ?

end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if not StringGrid1.EditorMode then
    Caption := Value;
end;					

1:
2:
3:
4:
5:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
begin
  Caption := Stringgrid1.Cells[Stringgrid1.Col,Stringgrid1.Row];
end;