如何控制DBGrid1的在未滿足條件時,不跳出本columns

Question

如何控制DBGrid1的在未滿足條件時,不跳出本columns
我在DBGrid1 的on Enter事件是這樣寫的
DBGride1.selectedindex:=1;
可按下回車或mouse時,還會跳走.謝謝!!!

Answer 1

onenter是指dbgird1得到焦点，应该用onkeydown

Answer 2

if 不满足 then
    begin      key:=#0;
      PostMessage(Dbgrid1.Handle,WM_KEYDOWN,0, 0);
    end;

Answer 3

在"回車或mouse時"，用程序判断条件，不满足条件就设置DBGRID当前所在行列的焦点

Answer 4

TdrawGrid(Dbgrid1).Col:=1;
TdrawGrid(Dbgrid1).Row:=1;
Dbgrid1.SetFocus;  

Answer 5

if 不满足 then abort