procedure Tform1.edit1keypress(Sender:tobject; var key: char);
begin
  if key=#13 then
   ********
end;怎么不正确?

解决方案 »

  1.   

    procedure TForm1.Edit1Exit(Sender: TObject);
      

  2.   

    这样还是有问题啊!
    提示错误
    Undeclared identifier: 'Edit1Exit'
      

  3.   


    Re:这样还是有问题啊!
    提示错误
    Undeclared identifier: 'Edit1Exit'
    在Object inspecter 面板上找EditExit,不是让你自己数
      

  4.   

    1.在界面上增加一个Edit件,默认名为edit1
    2.选中这个控件,在左边的对象查看器(Object Inspector)中的Events下双击OnExit
    3.在OnExit事件下写代码