我在一个Form中放了一个Edit控件,给这个Edit控件增加onKeyDown响应函数:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if 13=key then //13 是回车
begin
Edit1.Text:='aaabbb';
end;
end;运行时,当我按下回车键时,发出‘嘟’的一声,然后光标跑到Edit控件的起始位置了。
我希望不要有声音,同时光标保持在最后。请问该怎么办呢
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if 13=key then //13 是回车
begin
Edit1.Text:='aaabbb';
end;
end;运行时,当我按下回车键时,发出‘嘟’的一声,然后光标跑到Edit控件的起始位置了。
我希望不要有声音,同时光标保持在最后。请问该怎么办呢
解决方案 »
- 线程问题请教
- 今天去面试,那个管人事的MM真是靓呀:)
- 大家好:请问一下Shockwave Flash Object 格式的文件用什么工具打开——————在线等待!!!!!
- 这样的多线程如何编写?
- 为什么在多线程中使用Synchronize()函数?
- 如何将table 的一个字段的所有记录付给tstrings 啊?
- 一个程序启动后如何知道是由鼠标双击后运行的还是由用户按下会车键后运行的?
- VCL对象是否应该自己释放?
- 请教一句sql语句!
- 能否通过Tmsg 的Wparam 和 Lparam 来判断按下组合肩(如 Ctrl + F11)
- intraweb怎么把前台脚本和按钮联系起来?
- ListView.Columns[i].Width := -2;这是什么意思哦?
begin
Edit1.Text:='aaabbb';
Edit1.SelStart :=Length(Edit1.Text);
end;
刚才开了个玩笑,那个回车想是系统的声音,有回车就像。和程序无关。