关于DELPHI网格添加数据

procedure TFormMain.N1Click(Sender: TObject);
//主窗体事件
//增加
var
AControl: TWinControl;
begin
try
AControl := Screen.ActiveControl;
if(DBGrid2.ContainsControl(AControl))then
begin
DBGrid2.SetFocus;
FCustomer.Detail.Insert;
ShowMessage('顾客明细数据已经增加！');
end
else
begin
Name.SetFocus;
FCustomer.Insert;
FCustomer.Detail.Insert;
ShowMessage('顾客数据已经增加！');
end;
except
on e: Exception do
begin
FCustomer.DataSet.CancelBatch;
ShowMessage('顾客数据增加失败！');
end;
end;
end;

这是我的程序，为什么我按添加会先弹出提示对话框，然后再出现焦点变化，接着可以添加？

关于DELPHI 数据转换，急！ 关于xml添加数据 用delphi文本框怎么往数据库添加数据 在Delphi中添加编号不重复的数据 delphi中如何实现对一个表的添加数据？ 关于delphi数据导入到excel中 关于 Delphi 数据封装的问题 关于delphi私有数据的访问 photoshop怎样添加网格啊? delphi:如何设置dbgrid中的小网格