编程时遇到的几个问题，你能回答几个？何不进来一试！！

Question

第一：窗体的onclose 和onqueryclose事件中都能阻止窗体关闭，有什么不同吗？不然不是多此一举了第二：quit过程和abort哑异常都能终止过程的执行，经常用在onbeforeXXX等事件中阻止XXX过程的执行，这就不懂了，这不是两个过程吗？这是如何起作用的呢？你知道吗？我是不知道，对于知道真相的，也许这本身就不算个问题！第三：想在DBRGID中加个右健菜单，可就是找不到这个事件，如何给这个组件加个右击事件呢，这个问题放在本版也许再合适不过了，请高手指点！第四：我想编程打开一个ACCESS文件，直接打开输入密码就开了，可是编程的时候，再测试连接时要用户名，可我不知道啊，难死了，怎么回事？急啊，也怪自己孤楼瓜闻！第五：经常见高手把‘正则表达试’挂在嘴边，到底是什么个东东呢，搜了一个，没看明白，笨啊，你能说明白吗，不知道算了，这个不太重要。
                 好了，就这样吧，谢谢！

Answer 1

1、onqueryclose在close中调用的，只能决定是否关闭，Onclose功能更多
3、关联，看popupmenu属性
4、用户名是admin
5、http://www.delphifans.com/SoftView/SoftView_500.html

Answer 2

1、onqueryclose 比close 先执行  一般常用 queryclose 中的 canclose 参数控制能否关闭！
而close 中常用来处理程序关闭时的事件；
3、这个我没有理解，你是否是需要   jinjazz(近身剪（N-P攻略）)   说的那样的啊，这也太基本了吧？ 如果么自己处理特殊事件，可以在onmousedown 事件中 通过 Button 值来判断是左键还是右键，然后处理你自己的事件；
4、把你连接Access 数据库的Adoconnection 的loginpomt 属性设置为false；
同时，如果是静态连接，选中“保存密码”；

Answer 3

1)onqueryclose退出前可以询问用户是否退出，自己写写代码

Answer 4

>>第五：经常见高手把‘正则表达试’挂在嘴边，正则表达式简介
http://www.soulogic.com/doc/RegularExpressions/

Answer 5

http://www.aoxiang.net/doc/more.asp?id=1&td=21>>第二：quit过程和abort哑异常都能终止过程的执行
abort 相當于
raise Exception.Create('');你將abort 換成上面的一句試下

Answer 6

针对第四个问题连接access
用adoquery连接
在“提供者”页面选择 jet 4.0 oledb…………
在“连接”页面选择你的Access库文件
在“所有”找到jet oledb:Datebase Password 双击在弹出的页面上的属性值：输入你的密码
即可。

Answer 7

1.procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;function TCustomForm.CloseQuery: Boolean;
var
  I: Integer;
begin
  if FormStyle = fsMDIForm then
  begin
    Result := False;
    for I := 0 to MDIChildCount - 1 do
      if not MDIChildren[I].CloseQuery then Exit;
  end;
  Result := True;
  if Assigned(FOnCloseQuery) then FOnCloseQuery(Self, Result);
end;

Answer 8

2. procedure Abort;  function ReturnAddr: Pointer;
  asm
          MOV     EAX,[EBP + 4]
  end;begin
  raise EAbort.Create(SOperationAborted) at ReturnAddr;
end;