如题:就是按回车实际和点登录按钮一样功能。

解决方案 »

  1.   


    //在KeyDown事件中添加
    procedure TFrmTakeBoat.FlatComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if key=13 then Refresh_Personnel;
    end;
      

  2.   

    如果在登录界面中输入回车,就相当于点击登录按钮,不管现在焦点在哪,可以将登录按钮的default属性设为true
    如果只是在密码后输入回车相当于点击登录按钮,则需要在密码的edit控件的keypress事件里实现
      

  3.   

      keypress事件里写。。
      if key=#13 then
      button1.Click;
      

  4.   

    procedure Tform1.Edit2KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key=#13 then
      begin
        XPButton1Click(Sender);
      end;
    end;