如何实现在TStringGrid里单击某个cell就进入edit状态?(50分)

我设置了option的goRangeSelect:=false goEditing:=true
但始终在单击cell后会出现一个虚线框.再单击才进入edit.

在form.show中加入stringgrid1.setfocus

楼上的是否没理解俺的意思?
我的意思是单击某个cell直接进入编辑状态

先定位于一个单元格,然后聚焦即可

第一次实际上是TStringGrid得到焦点，也就是setfocus。
所以你的要求实现起来有点麻烦

谢谢大家
to yostgxf:能帮下我怎么办吗?
我的qq:120750555
谢谢.

搞定！

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
ACol, ARow :integer;
begin
(Sender as TStringGrid).MouseToCell(X, Y, ACol, ARow);
if (ACol>0) and (ACol<(Sender as TStringGrid).ColCount)
and (ARow>0) and (ARow<(Sender as TStringGrid).RowCount) then
begin
(Sender as TStringGrid).Col:=ACol;
(Sender as TStringGrid).Row:=ARow;
(Sender as TStringGrid).SetFocus;
end;
end;