Delphi中的记录

1.限制控件只能输入数字及删除键

procedure KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8]) then         //限制只能0-9和删除键有效
  Key := #0;
end;

2.DBGrid(Eh)是否在操作某列

if (TControl(Sender).Name = 'myGrid') then
begin
  if myGrid.SelectedField.FieldName='SName' then
     Testing('在操作SName列');
end;

3.后续接着写