1,重新编译。PAS文件,即可CTRL+F9

解决方案 »

  1.   

    不行啊!CTRL+F9只可重工程!我改变了SOURCE\VCL\CONTROL.PAS,怎样让他生效到TEDIT控件!
      

  2.   

    2 ??没有见过。

    Form1.KeyPreview := true;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Key = VK_RETURN) then
        SelectNext(ActiveControl, true, true);
    end;
      

  3.   

    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Key = VK_RETURN) then
        SelectNext(ActiveControl, true, true);
    end;
    或者写一个函数来控制
    函数里面用
    procedure SetFocus(Key:Char;Temp:TWinControl);
    begin
    if (Key=#13) then
      begin
        Temp.setfocus;
      end;
    end
      

  4.   

    windindance(风舞轻扬) 你的代码不错,但很繁的!
    我现在已经找到方法了,改变CONTROL.PAS 里面一点代码就可以了!我不喜欢  Form1.KeyPreview := true;
    关键是怎样编译生效!!!