TStringGrid. Как удержать фокус на ячейке таблицы?

[ruma]

Требуется обеспечить обязательный ввод значения в ячейку таблицы.
Как это сделать?
Спасибо!

[Stilet]

Например так:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;

var ax,ay:integer; b:boolean;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1SelectCell(Sender : TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if not b then begin
CanSelect:=false;
end else
b:=false;
end;

procedure TForm1.StringGrid1SetEditText(Sende r: TObject; ACol,
ARow: Integer; const Value: String);
begin
b:=true;
end;

end.