Delphi三十六之数据库篇

1．在TDBGrid中将Enter键用作Tab键

　　//设置窗体的KeyPreview为True

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
　　　with TDBGrid(ActiveControl) do
　　if selectedindex $#@60; (fieldcount -1) then
　　　selectedindex := selectedindex +1
　　else
　　　selectedindex := 0;

　　end;

　　2．删除记录前显示汉语的提示对话框

　　//设置DbNavigator的ConfirmDelete属性为False
　　//在数据集控件的BeforeDelete事件中编写如下代码：

if Application.MessageBox("确定要删除当前记录吗？", "删除 记录", Mb_YesNo + Mb_IconWarning) =
Id_No then
Abort; //利用哑异常退出删除事件