String grid - изменить содержимое ячейки при определенном условии

[Vova777]

Нужно, чтобы на событии OnSelectCell, т.е. при переключении с ячейку на ячейку, в ячейке где ввод данных завершился, т.е. предыдущая ячейка относительно выбранной - если содержимое = ' ', то заменить его на 'н/а'. Как?

[asmodey1]

Для начала в опциях задаем goEditing=True...

var
  Form1: TForm1;
  mycol,myrow: integer;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
if StringGrid1.Cells[mycol,myrow]='' then
StringGrid1.Cells[mycol,myrow]:='н/а';
mycol:=ACol;
myrow:=ARow;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mycol:=1;
myrow:=mycol;
end;