procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
  begin
    ADOQ_REN.Close;
    ADOQ_REN.SQL.Text:=
    ADOQ_REN.SQL.Text +
    'OR BH=''' + Edit1.Text + '''';
    ADOQ_REN.Open;    Edit1.Clear;
  end;  
end;为什么我按回车都没有任何反应啊。前两天按回车都还可以的,昨天开始就不行了。我没有动过这段代码。好心人帮帮忙啊

解决方案 »

  1.   

    procedure TQJ_F.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = #13 then
      begin
        showmessage('ok');
      end;
    end;就边写到keypress里也没有反应,和数据库没有关系吧。
      

  2.   


    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      IF key=13 then
        showmessage(' ');
    end;我试好用的
      

  3.   

    这样子也没有反应,到底是怎么回事啊。高手帮帮忙啊。
    procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if Key = 13 then
      begin
        ShowMessage('ok');
      end;  
    end;
      

  4.   

    procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    begin 
      if Key = #13 then 
      begin 
        ShowMessage('ok'); 
      end;  
    end; 你在  if Key = #13 then 中断一下看看,
      

  5.   

    检查一下keydown keyup keypress事件是不是对key进行处理了?
      

  6.   

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        showmessage('ok');
    end;跟踪一下你的程序,看看SQL语句是否有问题
      

  7.   

    keydown事假中不能用 if key=#13 then只能用 if key=13 then
    不过,我也试过在keypress 中用:
    if key=#13 then
    照样没有反应。
      

  8.   

    怎么没有一个人知道怎么回事?
    难道 delphi出了问题?我新建一个窗体,添加一个tedit然后在edit1 的keydown中判断if key=13 then
    showmessage('ok');
    没有问题。但是在我原有的程序里就是不行。。怪了。。
      

  9.   

    估计是窗体的KeyPreview属性没有设置为True.这个如果不设置为true,按死了也不会响应你的按键事件的...... :)其他的没有看出来什么大问题.
      

  10.   


    你的问题不一定出在 key=#13这里,应该出在
        ADOQ_REN.Close;
        ADOQ_REN.SQL.Text:=
        ADOQ_REN.SQL.Text +
        'OR BH=''' + Edit1.Text + '''';
        ADOQ_REN.Open; 你在这里加一个showmessage看是不是执行,如果不执行,你看看相关的属性,如果执行showmessage,你检查一下你的SQL.text的值是什么,也可能根本就没查出来符合条件的记录呢.
      

  11.   

    你的问题一定是出在begin end 里面,你把你的SQL输出出来到查询分析器里执行一下
      

  12.   

    想不出来什么问题... 建义用SQl.Add('');   SQL.Text我的感觉是在某些地方好用;