怎么通过回车激发一个事件? if keycode = #13 thenbeignend; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Procedure Tmform.hzKeyDown(Sender: TObject; Var Key: Word;Shift: TShiftState);beginif key<>$0D then exit;//your code here!end; procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);begin if key = #13 then begin Application.Terminate; end;end; 在edit 的onkeypress 中加入:if key=#13 then . . . 如何用DELPHI开发 数据库系统开发平台 如何实现,当子窗体边界超出父窗体边界时,父窗体不出现滚动条? Delphi连接Sybase数据库问题 关于类的创建 如何获取计算机名称,有函数吗?一定 会给分的。 速战速决:解决就给分:寻求ACCESS数据库压缩代码 有什么方法可以提高ListView删除item的速度? 关于flashget和netant中ListView的使用? 窗体被设置为不显示于任务栏,如何恢复呢? 请大富翁论坛的地址, 已经有人告诉我是www.delphibbs.com,但是不行 动态窗体的生成的再问 如何使用FileStream进行文件的读写?
Shift: TShiftState);
begin
if key<>$0D then exit;
//your code here!
end;
begin
if key = #13 then
begin
Application.Terminate;
end;
end;
if key=#13 then
.
.
.