怎摸样让stringgrid的某行某列获得焦点,十万火急,在线等待!

[smallpigs]

假如我现在的焦点在stringgrid1的第2列 第3行上,现在我编辑这个数据,而且我在SelectCell中写了判断数据合法性的函数,当我编辑完这个数据后焦点转移时候,如果数据不正确,我想让焦点再次回到我编辑的这个数据上,怎摸处理。

[wweijie]

var
myRect: TGridRect;
begin
myRect.Left := 3;
myRect.Top := 1;
myRect.Right := 3;
myRect.Bottom := 1;
StringGrid1.Selection := myRect;
end;

[Shiyl]

var
Column, Row: Longint;
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
StringGrid1.MouseToCell(X, Y, Column, Row);
showmessage(inttostr( column));
showmessage(inttostr(row));
end;
---------------------------------------
以上部分得到编辑的单元格的行列值。
procedure TForm1.Button1Click(Sender: TObject);
var flag:boolean;
begin
flag:=false;
if flag=False then
begin
showmessage('wrong');
stringgrid1.Cells[column,row]:='';
stringgrid1.SetFocus;
end;
end;
没有调试，试试看

[linzi]

StringGrid1.Row := 2;
StringGrid1.Col := 4;

[smallpigs]

谢谢邦助,但是我要在SelectCell事件中做这个处理,但是焦点没有办法回到上一格编辑的单元中,郁闷。。。:( 而且StringGrid1.Row := 2; StringGrid1.Col := 4;本身触发selectcell事件, 中秋节也过不好,烦