如何编写???当DBGrid1中的焦点离开某一个单元格时,出现的事件?

                            
   
  我只要,在同一行中离开FieldByName('Pcode')时才产生,但下面的代码,不管你离开该行中的那一个单元格都会产生.....请问怎么改才好?  
   
  procedure   TInCheckForm.DBGrid1ColExit(Sender:   TObject);  
  begin  
          if   (DBGrid1.DataSource.DataSet.FieldByName('Pcode').Value<>'')   then   //这时怎么改?  
          begin  
              ShowMessage('enter');  
              Exit;  
          end;  
   
  end;

查看回复

相关问题