Author: Tomas Rutkauskas

How to make a single cell in a TStringGrid readonly

Answer:

You can use OnSetEditText event for that. Something like:
1   
2   procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const
3     Value: string);
4   begin
5     if (ACol = 1) and (ARow = 1) then
6       StringGrid1.Cells[ACol, ARow] := 'Read Only!';
7   end;