запретить редактирование в отдельных ячейках Stringgrid Delphi

[JK0]

Подскажите, как установить свойство goEditing в false только для отдельных ячеек Stringgrid?
Варианты типа stringgrid1.Cells[i,j].Options... или
stringgrid1.Options.Cells[i,j]... не пропускает компилятор

[wm_leviathan]

procedure TForm1.StringGridSelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
begin
if(ARow=#)and(ACol=#) then
StringGrid.Options:=StringGrid.Opti ons-[goEditing]
else StringGrid.Options:=StringGrid.Opti ons+[goEditing];
end;

# - номер

[JK0]

Спасибо!
Для статического stringgrid всё работает, а второй у меня динамический - для него не реагирует (описание процедуры в заголовке есть, проект запускается, а реакции - ноль).

[wm_leviathan]

можно привести код динамического создания StringGrid'a как вы его создаете?

[JK0]

if a<>nil then a.Destroy;

a:=Tstringgrid.Create(Form1);
a.Parent:=Form1;
a.ColCount:=na+1;
a.RowCount:=nk+1;
a.Height:=stringgrid1.Height+26;     //
a.Top:=580;
a.FixedColor:=clInactiveCaptionText;
a.DefaultColWidth:=stringgrid1.DefaultColWidth;
a.DefaultRowHeight:=stringgrid1.DefaultRowHeight;
a.Visible:=true;
a.Options:= a.Options+[goEditing];

может процедура описана некорректно:

procedure TForm1.aSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean; i:integer);
begin
if ACol=1 then
a.Options:=a.Options-[goEditing]
else a.Options:=a.Options+[goEditing];
end;

[wm_leviathan]

а вы привязку событий наверно не сделали

sg.OnSelectCell:=form2.sgSelectCell;

вот полный пример моего листенга (на форме 1 кнопка button1)

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
  procedure sgSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);//объявляем свою процедуру в privat секции
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
 var sg: TStringGrid;
begin
sg:= TStringGrid.Create(Form2);//создаем стринггрид
sg.Parent:=Form2;
sg.Width:=417;
sg.Height:=169;
sg.Options:= sg.Options+[goEditing];
sg.OnSelectCell:=form2.sgSelectCell;//привязка события к нашей процедуре
end;

procedure TForm2.sgSelectCell(Sender: TObject; ACol, ARow: Integer;var CanSelect: Boolean);

begin
if(ARow=1)and(ACol=1) then //тут уже работает наша процедура
(Sender as TStringGrid).Options:=(Sender as TStringGrid).Options-[goEditing]
else
(Sender as TStringGrid).Options:=(Sender as TStringGrid).Options+[goEditing];
end;

end.

[JK0]

Спасибо огромнейшее!
Всё работает!