DBR Delphi-Ecke

// Hiermit kann man bestimmte Zellen in einem Stringgrid schreibschützen.

// Getestet mit D4 unter Win98

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, 
  ARow: Integer; var CanSelect: Boolean); 
begin 
  if (acol = 1) and (arow in [2..3]) then 
// die Zellen der 1. Spalte in der 2. und 3. Zeile werden gesperrt 
    stringgrid1.options := stringgrid1.options - [goEditing] 
  else stringgrid1.options := stringgrid1.options + [goEditing]; 
end;