我有段代码,我想按下enter键就可以执行该代码,请问代码
散分散分。

解决方案 »

  1.   

    keypress事件中,
    if key=#13 then
      

  2.   

    建一个hook,然后判断,if key=#13 then就执行你的代码
      

  3.   

    keypress, keyup, keydown, ...
      

  4.   

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
       if key = #13 then
        begin
          //执行你需要执行的代码
        end;
    end;
      

  5.   

    if  (Message.Msg >= WM_KeyFirst) and (Message.Msg >= WM_KeyLast)
      and (Message.WParam=VK_Return)
      

  6.   

    keypress事件中, 
    if key=#13 then
      

  7.   

    其他的控件要屏蔽enter,或者焦点返回你要执行的控件。焦点默认回车是按下。
      

  8.   

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
       if key = #13 then
        begin
          //执行你需要执行的代码
        end;
    end;
    这个方法不错