一个很菜的问题，答者有分...向高手求教

Question

应该是你登陆窗体上有一个按钮的ModalResult设成mrOk或mrCancel
且Default属性设成真了吧？

Answer 1

嘿，不是告诉你了吗，其实没必要写在Project文件里

Answer 2

>>procedure Tflogin.EditnameKeyPress(Sender: TObject; var Key: Char);
key=#13是不会引起KeyPress事件的，改为KeyDown事件。procedure Tflogin.EditnameKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if key=13 then
  begin
    if editname.text='' then
      begin
        showmessage('请输入用户名！');
        editname.SetFocus ;
      end
    else
      editpass.SetFocus ;    
  end;
end;>>只要我一按“回车”，就跳到程序主窗体
确定按扭的Default属性是否为True,如是改为false.

Answer 3

是按钮的DEFAULT问题
建议你改该属性为FALSE
或在EDIT里处理ONKEYDOWN事件 

Answer 4

消息循环可能还没有建立起来，还没有执行Application.Run呢！你怎么能够得到消息呢！况且也没有必要这么做啊！

Answer 5

to BlueTrees(蜗牛)　
>>消息循环可能还没有建立起来，还没有执行Application.Run呢！你怎么能够得到消息呢！况且也没有必要这么做啊！ 
ShowModal会建立自己的消息循环。