Stringgrid и пустые ячейки

[karapuz]

Здраствуйте. Вообщем мне нужно что бы в Stringgride, заполненые ячейки были не доступны для редкатирования, а пустые наоборот. Определить ячейки для редактирования нужно при нажатии на клавишу (напр. button).
Помогите пожалуйста

[VVM]

Вот вариант:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if StringGrid1.Cells[ACol, ARow] <> '' then
    CanSelect := false
  else
    CanSelect := true;
end;

Но есть нюанс, если вышли из ячейки до того как записали все, что хотели, то войти и дописать не получится.

[SERG1980]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  CanSelect:=(StringGrid1.Cells[ACol, ARow] ='');
end;

[Swarog]

Но есть нюанс, если вышли из ячейки до того как записали все, что хотели, то войти и дописать не получится.

решается массивом доступности ячеек, прoстой массив размеров с таблицу типа булеан

var CanSelectArray: array[100,100]: boolean; 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
    CanSelect := CanSelectArray[Acol, ARow];
end;

сначала нужно конечно инициализировать, можно динамически, перед выводом таблицы на экран анализируем все ячейки если текст есть, то в массив по этому адресу пишем false, если пусто, то True

[karapuz]

Swarog, спасибо всё работает, только вопрос, при выводе таблице, указатель автоматически встаёт на ячейку [0,0]. Тоесть если я выбираю не доуступную для редактирования ячейку, ввожу число, то оно закидывается в ячейку [0,0]. Как это исправить?
И ещё, как закрасить выбранную ячейку? Попробовал в OnselectCell - не вышло