eine zelle im stringgrid auf readonly?

[Hobby-Programmierer]

Nabend ...,
nichts leichter als das. Jens hatte oben ja bereits beschrieben wies ungefähr geht. Also leiten wir ab ...

Delphi-Quellcode:

procedure TForm1.SGSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
  if ARow = 1 then // Schreibschutz für Zeile 1
   SG.Options:= SG.Options -[goEditing]
  else
   SG.Options:= SG.Options +[goEditing];
end;

LG Mario