如何判断stringgrid的单元格是处于选择状态还是编辑状态？

Question

var
    strState:string;procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
    strState:='editstatus';
end;procedure TForm1.StringGrid1Click(Sender: TObject);
begin
    strState:='selectstatus';
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    ShowMessage(strState);
end;

Answer 1

你这样可不行，我是想在KEYPRESS事件中按下一个键时进行判断，以便确定是否接受这个字符。

Answer 2

我是想在KEYPRESS事件中，当处于选择状态时，因每键入一个字符以前已键入的字符会被取消，，所以我可以键入我想键入的字符（限制条件我已设定好）。而处于编辑状态时，如键入的字符已存在，则不能再键入（如单元格内已有字符“-”则不能再键入字符“-”）。
难道设有人懂吗？