ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

ダウン

キーストロークハンドラーがオンのときにTEditで音声信号を生成しないようにする方法。 似ている枝を探す


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

このトラブルにうんざりし、戦う方法がわからない。 TEditでは、OnKeyDownキーストロークハンドラーを使用します。 Enter、Escapeなどのキーストロークをキャッチします。 そのようなキーを押すと、音声信号が鳴ります。 サウンドカードがある場合、サウンドスキームのセットからの信号、ない場合、コンピューターのスピーカーが動作します。 ユーザーの遠lえ、私も彼らと一緒に座ります。 コンピューターに登り、スピーカーを切り落とすことは、スポーツマンらしくないようです。 それを踏みにじるには?



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

Key:=#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, ничего не делаю кроме присвоения #0 при получении кодов, обрабатываемых в OnKeyDown.



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

to Владислав ©
Из хэлпа:
Keys that don"t correspond to an ASCII Char value (Shift or F1, for example) don"t generate an OnKeyPress event.



Владислав   (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 key := 0, проблема осталась. Ну елы-палы, что типа делать?



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

TMyEdit= class(TEdit)
...
procedure KeyPress(var Key: Char); override;
...
終わり;

procedure TMyEdit.KeyPress(var Key: Char);
始まる
のケースキー
#1..#12,#14..#26,#28..#255:;
else key:=#0;
終わり;
終わり;


и не "пищат".



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

work ?



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

これを試してください:
procedure TfDocEdit.FormKeyPress(Sender: TObject; var Key: Char);
始まる
if (Key = #27) then
始まる
キー:=#0;
if (fDocEdit.ActiveControl is TEdit) then
始まる
TEdit(fDocEdit.ActiveControl).Text := vPrevValue;
TEdit(fDocEdit.ActiveControl).Modified := False;
終わり
終わり
if (Key = #13) then
始まる
キー:=#0;
Perform(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 ?

забыл ООП



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

Чуваки, всем спасибо. Не пищит комбинация с
のケースキー
#13: begin
...
終わり
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 © забыл ООП
делаешь новый компонент ( T..Edit ) один раз

procedure KeyPress(var Key: Char); override;

и его используешь



ページ: 1 全枝

フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

2階









メモリ:0.87 MB
時間:0.054 c
3-21993
Кнопка
2001-12-07 09:23
2002.01.08
データベースを検索(非常に緊急!!!)


6-22272

2001-10-06 18:26
2002.01.08
zakovyrkoyさんに質問!


1-22029
neo_
2001-12-18 12:33
2002.01.08
Tthreadを殺す


4-22498
cher_gvf
2001-11-05 20:12
2002.01.08
そのようなプロセスが実行されているかどうかを調べる方法は?


1-22170
AVALLOGIGS
2001-12-20 19:37
2002.01.08
お手伝いします!





アフリカーンス語 アルバニア語 Arabic アルメニア語 アゼルバイジャン語 バスク ベラルーシ Bulgarian カタロニア語 中国語(簡体字) 中国語(繁体字) クロアチア チェコ語 デンマーク語 Dutch 英語 エストニア語 タガログ語 Finnish フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 Indonesian アイリッシュ イタリア語 日本語 Korean ラトビア語 リトアニア マケドニア語 Malay マルタ語 Norwegian
ペルシア語 ポリッシュ ポルトガル語 ルーマニア Russian セルビア Slovak スロベニア語 スペイン語 スワヒリ語 Swedish Thai トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский