在设置了bitbtn的kind属性后,delphi 自动将回车键的动作给了bitbtn ,例如 我想在一个有多个edit控件的窗体上让用户键入回车键时焦点自动下移到另一个控件,然而我将bitbtn的kind属性设上后,安回车键就执行了bitbtn的单击事件,请问如何修改?比较急的。

解决方案 »

  1.   

    我想不是设置bitbtn的kind属性吧
    可以把edit的enter事件设计成把focus设到下一个edit
      

  2.   

    ModalResult := mrNone;设置好Kind后,
    把ModalResult设置为mrNone;
      

  3.   

    ModalResult := mrNone;设置好Kind后,
    把ModalResult设置为mrNone;
    同意这个做法。
      

  4.   

    jacky_shen(jacky) 我是这样做的 可是仍然不行 仍然是bitbtn自动识别回车键,而且我在edit控件的enter事件中写上代码让焦点自动下移到另一个edit控件,可是我一按回车键,还是自动执行bitbtn的onclick事件,麻烦大家能抽出宝贵的时间来帮帮我吧。
      

  5.   

    你把TBitbtn的Default设为True了,改为False应该就好了.
    至于让用户键入回车键时焦点自动下移到另一个控件,你可以把TForm.KeyPreview设为True,并且:
    procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = #13 then
      begin
        if ActiveControl is TCustomMemo then exit;
        key := #0;
        SelectNext(ActiveControl,true,true);
      end;
    end;