在dbgrid里面鼠标不能点击到网格的外面请问是什么原因呢？

[cruise007]

procedure TForm2.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Column, fRow: Longint;
begin

bChanged:=true;
StringGrid1.MouseToCell(X, Y,Column,frow);
b1:=StringGrid1.Cells[1,frow];
Edit2.Text:=StringGrid1.Cells[2,frow];
Edit3.Text:=StringGrid1.Cells[3,frow];
Edit4.Text:=StringGrid1.Cells[4,frow];

// Edit5.Text:=StringGrid1.Cells[5,frow];


bChanged:=false;

end;
上面是 在stringgrid 截取焦点的语句 但是问题是当我的鼠标点击到网格外面就会出错
鼠标只有在网格里面来回移动，不能点击到网格的外面请问是什么原因呢

[Ciny_Cou]

你点击到网格的外面,StringGrid1.MouseToCell(X, Y,Column,frow);
这条语句就无法正确运行了。

加上Try Except end;语句不就行了。

[老之]

frow越界
if frow<>-1 then
begin
b1:=StringGrid1.Cells[1,frow];
Edit2.Text:=StringGrid1.Cells[2,frow];
Edit3.Text:=StringGrid1.Cells[3,frow];
Edit4.Text:=StringGrid1.Cells[4,frow];
end;

[cruise007]

加 { if frow<>-1 then } 没用 我早就想到了还是出错 不信你们可以调试