בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

כיצד להפוך את Tedit לא ליצור צפצוף כאשר המטפל הקשה על. מצא סניפים דומים


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

עייפתי את הטראבל הזה ואני לא יודע להילחם. ב- 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 ומפתח: = # 0;



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

אני מעבד את OnKeyUp, אינני עושה דבר מלבד הקצאת #0 כשמעבדים את הקודים ב- OnKeyDown.



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

לוולדיסלב ©
מאת עזרה:
מפתחות אינם תואמים ערך ASCII Char (Shift או F1, למשל) אינם מייצרים אירוע OnKeyPress.



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

> ויקטור שצ'רבאקוב © (18.12.01 13: 04)

כן, אבל הם, תודה לאל, ולא "מציצים".



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

נסה Ctrl + S למשל :)



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

> ויקטור שצ'רבאקוב © (18.12.01 13: 09)

עם זאת לא "מצפצף"?

עוד משהו שאתה חושב עליו?

:)))



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

ניסיתי להכניס למפתח OnKeyUp: = 0, הבעיה נותרה. ובכן, כוויות אלה, איזה סוג לעשות?



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

TMyEdit = כיתה (TEdit)
...
הליך KeyPress (מפתח var: Char); לעקוף;
...
סוף;

נוהל TMyEdit.KeyPress (var מפתח: Char);
להתחיל
מפתח המקרה של
#1..#12,#14..#26,#28..#255:;
else key: = # 0;
סוף;
סוף;


ואל "מציצים".



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

לעבוד?



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

נסה זאת:
הליך TfDocEdit.FormKeyPress (השולח: TObject; var Key: Char);
להתחיל
אם (מפתח = #27)
להתחיל
מפתח: = # 0;
אם (fDocEdit.ActiveControl הוא Tedit) אז
להתחיל
Tedit (fDocEdit .ActiveControl) .Text: = vPrevValue;
TEdit (fDocEdit.ActiveControl). שינוי: = שווא;
הסוף;
הסוף;
אם (מפתח = #13)
להתחיל
מפתח: = # 0;
בצע (WM_NEXTDLGCTL, 0,0);
הסוף;
הסוף;



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

ואל תשכחו לקבוע
TfDocEdit.KeyPreview: = נכון;



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

>> panov ©
שכחתי את KeyPreview: = נכון;
והשאלה היא מה תעשה אם בטופס / בפרויקט 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: Char); לעקוף;

ואתה משתמש בזה



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.61 MB
זמן: 0.046 c
14-22329
Dima-k17
2001-11-03 15:12
2002.01.08
נגמר הדלפי טיימס?


14-22361
ניקולאי
2001-11-08 00:17
2002.01.08
כן .................................


4-22501
אמנות
2001-11-02 08:30
2002.01.08
האם ניתן לאסור את השימוש ב- Api מסוימים ליישומים אחרים?


1-22116
בונד
2001-12-19 19:08
2002.01.08
למישהו יש hash חוט MD5?


1-22021
סוקול
2001-12-18 08:54
2002.01.08
הורד קובץ!





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский