请求大家帮助!

解决方案 »

  1.   


    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
     if key=13 then
      ShowMessage('不好意思,我按错回车键!');
    end;
      

  2.   

    onkeydown事件中
    key = #13
      

  3.   

    需要设置Edit属性,WantReturn为True,之后才能收到13消息。
      

  4.   

    Delphi(Pascal) code
    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
     if key=13 then
      ShowMessage('不好意思,我按错回车键!');
    end;
    哈哈。。按错了。