procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var s:String; begin TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); s:=Column.Field.DisplayText; if (Column.FieldName='FAX') and (Length(s)10) then  ...
[ 查看全文 ]