im Stringgrid spalten für Eingabe sperren ?

[Hansa]

Hi,

ich will nur die Spalten 1 und 4 zur Eingabe zulassen. Wieso geht das hier nicht :

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  CanSelect := false;
  if StringGrid1.Col IN [0,2,3,5,6] then
    StringGrid1.Options := StringGrid1.Options - [goEditing]
  else begin
    CanSelect := true;
    StringGrid1.Options := StringGrid1.Options + [goEditing];
  end;
end;

die R/O Spalten sollten trotzdem eventuell noch Tastatur-Ereignisse verarbeiten können.