下面这段代码为什么执行到 if not (ActiveControl is TDbgrid) Then处出错??
Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char); Begin if key=#13 then if not (ActiveControl is TDbgrid) Then Begin key:=#0; perform(WM_NEXTDLGCTL,0,0); end else if (ActiveControl is TDbgrid) Then begin With TDbgrid(ActiveControl) Do if Selectedindex<(FieldCount-1) then Selectedindex:=Selectedindex+1{ 移动到下一字段} else Selectedindex:=0; end; End;
----------------------------------------------
-