Автозаполнение ячейка StringGrid по окончании её редактирования

[Diablero]

Приветствую! У меня возникла задача обеспечить следующее поведение таблицы TStringGrid: после окончания редактирования ячейки, если в последней текст равен пустой строке, в ячейку должен подставляться символ '0'. Специального события, которое срабатывает в интересующий меня момент я не нашёл, а погуглив, понял, что его у грида нет в принципе. Может быть кто-нибудь сталкивался с подобной задачей и реализовывал её окольными путями? И какое событие срабатывает у грида, если он теряет фокус ввода?

[kotopezzz]

По поводу присваивания ячейки '0':

if stringgrid1.cells[i,j]='' then
stringgrid1.cells[i,j]:='0';
попробуй.

[Diablero]

Так это понятно! Нужно, чтобы нули подставлялись на автомате как только ячейка фокус ввода теряет

[Баламут]

onDrawCell разве не то? Ну и примерно следующий код

  if StringGrid1.Cells[aCol, aRow] = ''
  then StringGrid1.Cells[aCol, aRow] := '0';

[Serge_Bliznykov]

Diablero, ну или задействовать событие .OnSelectCell
только надо помнить, что событие возникает ПЕРЕД установкой фокуса на ячейку.
поэтому завести где-нибудь глобальные переменные. и туда записывать ACol, ARow - той ячейки, где были перед сменой фокуса.

если сложно понять - могу набросать простенький пример..

[Diablero]

Сообщение от Баламут

onDrawCell разве не то? Ну и примерно следующий код

  if StringGrid1.Cells[aCol, aRow] = ''
  then StringGrid1.Cells[aCol, aRow] := '0';

Вроде работает, спасибо Если не выплывут какие-то побочные эффекты, остановлюсь на этом способе.

[Diablero]

Сообщение от Serge_Bliznykov

Diablero, ну или задействовать событие .OnSelectCell
только надо помнить, что событие возникает ПЕРЕД установкой фокуса на ячейку.
поэтому завести где-нибудь глобальные переменные. и туда записывать ACol, ARow - той ячейки, где были перед сменой фокуса.

если сложно понять - могу набросать простенький пример..

Если не затруднит... буду благодарен

[Diablero]

И ещё такой вопрос, связанный с ячейками StringGrid: можно ли сделать программно, чтобы для какой-то из ячеек сработал эффект, который возникает при двойном клике на ней. То есть чтоб текст подсвечивался и был готов для редактирования?

[Serge_Bliznykov]

если сложно понять - могу набросать простенький пример..

пример оказался даже проще, чем я ожидал

на событии OnSelectCell

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

[Diablero]

Сообщение от Serge_Bliznykov

пример оказался даже проще, чем я ожидал

на событии OnSelectCell

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

Спасибо!
То есть, как я понял, в ACel и ARow хранится положение не ячейки, для которой срабатывает событие OnSelectCell, а той ячейки, которая была выбрана до этого?