主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

如何使按键处理程序打开时TEdit不会发出蜂鸣声。 找到类似的分支


voronkov   (2001-12-18 12:27) [0]

我累了这个trabl,我不知道该怎么打。 在TEdit中,我使用OnKeyDown键击处理程序。 我抓住了Enter,Escape和其他人的按键。 按下这些键后,会发出蜂鸣声。 如果有声卡,则声音方案设置的信号,如果没有,则计算机扬声器工作。 用户嚎叫,我和他们坐在一起,嚎叫。 在我看来,在计算机内部爬行并切断扬声器似乎不合时宜。 如何践踏它?



Anatoly Podgoretsky   (2001-12-18 12:34) [1]

键:=#0



Anatoly Podgoretsky   (2001-12-18 12:36) [2]

对不起,我想到了OnKeyPress



Виктор Щербаков   (2001-12-18 12:42) [3]

那么OnKeyDown呢? 最近有同样的问题。
我不得不使用RichEdit。



Владислав   (2001-12-18 12:58) [4]

那有什么问题呢?
你需要添加OnKeyPress和Key:=#0;



Teacher   (2001-12-18 13:02) [5]

我处理OnKeyUp,除了在获取OnKeyDown中处理的代码时分配#0,我什么都不做。



Виктор Щербаков   (2001-12-18 13:04) [6]

致弗拉迪斯拉夫©
来自帮助:
键不对应ASCII字符值(例如,Shift或F1)不生成OnKeyPress事件。



Владислав   (2001-12-18 13:06) [7]

> Victor Shcherbakov©(18.12.01 13:04)

是的,但他们,感谢上帝,而不是“窥视”。



Виктор Щербаков   (2001-12-18 13:09) [8]

尝试Ctrl + S例如:)



Владислав   (2001-12-18 13:19) [9]

> Victor Shcherbakov©(18.12.01 13:09)

然而,不是“嘟嘟”的?

你还有别的想法吗?

:)))



voronkov   (2001-12-18 13:19) [10]

我试图插入OnKeyUp键:= 0,问题仍然存在。 那么,烧伤,做什么类型的?



Dmitriy(new)   (2001-12-18 14:29) [11]

TMyEdit = class(TEdit)
...
过程KeyPress(var Key:Char); 覆盖;
...
结束;

程序TMyEdit.KeyPress(var Key:Char);
开始
案例密钥
#1..#12,#14..#26,#28..#255:;
else key:=#0;
结束;
结束;


并且不要“窥视”。



cdaDmitriy   (2001-12-18 15:22) [12]

工作?



panov   (2001-12-18 15:26) [13]

试试这个:
procedure TfDocEdit.FormKeyPress(Sender:TObject; var Key:Char);
开始
if(Key = #27)然后
开始
键:=#0;
if(fDocEdit.ActiveControl是TEdit)然后
开始
TEdit(fDocEdit .ActiveControl).Text:= vPrevValue;
TEdit(fDocEdit.ActiveControl).Modified:= False;
结束;
结束;
if(Key = #13)然后
开始
键:=#0;
执行(WM_NEXTDLGCTL,0,0);
结束;
结束;



panov   (2001-12-18 15:27) [14]

别忘了设置
TfDocEdit.KeyPreview:= True;



cdaDmitriy   (2001-12-18 15:32) [15]

>> panov©
忘了KeyPreview:= true;
问题是如果在表格/项目10 ..n TEdit上你会怎么做?

忘了OOP



voronkov   (2001-12-18 16:06) [16]

杜德,谢谢大家。 不要窥视与
案例密钥
#13:开始
...
结束;
else key:=#0;
结束;
在OnKeyPress中,尽管与该事件一起工作有点不寻常,因为我习惯于使用VK _等常量。
不幸的是,我正在编写一个具有大量手动输入的程序,并且通常不同的TEdit对相同的键应具有不同的响应,否则可以使用表单事件。 因此,这里的巴解组织无法挽救俄罗斯民主之父。



panov   (2001-12-18 16:12) [17]

> cdaDmitriy©(18.12.01 15:32)
您将此处理程序的名称写入每个。



cdaDmitriy   (2001-12-18 16:15) [18]

> panov©忘记了OOP
您一次制作一个新组件(T..Edit)

过程KeyPress(var Key:Char); 覆盖;

并使用它



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.6 MB
时间:0.026 c
7-22444
VS
2001-09-27 07:14
2002.01.08
如果程序正在运行,如何复制自己


1-22036
走私
2001-12-18 14:01
2002.01.08
文本编辑器


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


1-22238
T2
2001-12-16 07:29
2002.01.08
确定菜单项编号


14-22387
- = CrazyFish = -
2001-11-09 16:28
2002.01.08
问题不是主题





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский