文本框的简单问题?

toplayer 2003-08-30 11:34:20
一个的窗体,放置一个文本框,运行,在文本框中按回车,出现“叮”的Windows提示音,请问如何不让这个提示音出现,因为我想在KeyPress事件中判断回车,做一些操作
...全文
63 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
chanet 2003-08-31
  • 打赏
  • 举报
回复
if key = #13 then
beep
huojiehai 2003-08-30
  • 打赏
  • 举报
回复
前面我看错了

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Key := #0
else begin//你的代码
end;
end;
mgphuang 2003-08-30
  • 打赏
  • 举报
回复
重载keyPress事件处理过程。
huojiehai 2003-08-30
  • 打赏
  • 举报
回复
Beep;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧