eine zelle im stringgrid auf readonly?

[Jens Schumann]

Hallo herrentor,
so kann die Zelle (1,1) nicht mehr selektiert werden. Also kann der Inhalt auch nicht mehr geändert werden.

Delphi-Quellcode:

procedure TForm1.SGSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  CanSelect:=Not ((ACol=1) and (ARow=1));
end;