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;为什么我按回车都没有任何反应啊。前两天按回车都还可以的,昨天开始就不行了。我没有动过这段代码。好心人帮帮忙啊
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;为什么我按回车都没有任何反应啊。前两天按回车都还可以的,昨天开始就不行了。我没有动过这段代码。好心人帮帮忙啊
begin
if Key = #13 then
begin
showmessage('ok');
end;
end;就边写到keypress里也没有反应,和数据库没有关系吧。
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF key=13 then
showmessage(' ');
end;我试好用的
procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
begin
ShowMessage('ok');
end;
end;
Shift: TShiftState);
begin
if Key = #13 then
begin
ShowMessage('ok');
end;
end; 你在 if Key = #13 then 中断一下看看,
begin
if key=#13 then
showmessage('ok');
end;跟踪一下你的程序,看看SQL语句是否有问题
不过,我也试过在keypress 中用:
if key=#13 then
照样没有反应。
难道 delphi出了问题?我新建一个窗体,添加一个tedit然后在edit1 的keydown中判断if key=13 then
showmessage('ok');
没有问题。但是在我原有的程序里就是不行。。怪了。。
你的问题不一定出在 key=#13这里,应该出在
ADOQ_REN.Close;
ADOQ_REN.SQL.Text:=
ADOQ_REN.SQL.Text +
'OR BH=''' + Edit1.Text + '''';
ADOQ_REN.Open; 你在这里加一个showmessage看是不是执行,如果不执行,你看看相关的属性,如果执行showmessage,你检查一下你的SQL.text的值是什么,也可能根本就没查出来符合条件的记录呢.