我想在EDIT中输入数据后,鼠标失去焦点,和按回车键,共同一个结果,把结果输入数据库procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
end;和这个procedure TForm1.Edit1Exit(Sender: TObject);
beginend;如何编写在一起……比较简练。多谢回答。
Shift: TShiftState);
begin
if key=13 then
end;和这个procedure TForm1.Edit1Exit(Sender: TObject);
beginend;如何编写在一起……比较简练。多谢回答。
解决方案 »
- delphi新手,帮忙查看“用户密码修改”窗体代码的错误
- Dephi7 编写的Web Service 在 Windows2003 下的问题
- 请问如何通过indy的TidTCPServer获得本机的IP地址???
- 如何删掉opendialog打开目录下的文件?
- 在XP下安装了D6,可不可以不用重装而在98下仍然能用它?
- 一个入门问题大家不要笑我,窗口怎么切换?
- 关于Treeview问题?
- 怎么安装VCL?
- 请问哪里有能嵌入到delphi中的有各种弧形箭头的控件?谢谢啦!
- 怎样做服务器端的安装盘?
- 请问delphi中如何在一个form里调用另一个form的procedure
- TEDIT控件的MaxLength属性
这个回车事件如何执行Edit1Exit事件……有个范例代码吗……,我是新手……多谢。
还有更加简单的写法吗?多谢。
procedure TfrmWordManager.BitBtn2Click(Sender: TObject);
begin
close;
end;procedure TfrmWordManager.edtWordExit(Sender: TObject);var
sSqlStr:string;
begin
with frmdatabase do
begin
ADOWordMan.close;
ADOWordMan.SQL.Clear;
sSqlStr:='insert into word(word,mean) values(:Word,:Mean)';
ADOWordMan.SQL.Add(sSqlStr);
ADOWordMan.Parameters.ParamByName('Word').Value:=Trim(edtWord.Text);
ADOWordMan.Parameters.ParamByName('Mean').Value:=Trim(edtMean.Text);
ADOWordMan.ExecSQL;
Application.MessageBox('单词增加成功!', '提示', MB_OK + MB_ICONINFORMATION);
end;
end;
procedure TfrmWordManager.edtWordKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
edtWord.OnExit(edtWord);end;