Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

beep при OnKeyDown

Bagos © (2007-01-31 22:05:00)
Люди подскажите пожалуйста,столкнулся с такой штукой:обрабатываю onkeydown в edit'e и сделал чтобы при нажатии на ентер воспроизводилась мелодия,но еще и проигрывается стандартный beep бкак избавится от него,а то всю малину портит?
Спасибо

Beeper (2007-01-31 23:18:00) [1]
Beeper (31.01.07 23:14) [13]

То есть, одна фиг разница, где обнулять, в онкипресс, или онкидаун...

bagos (2007-01-31 23:16:00) [2]
Beeper,спасибо получилось.
И спасибо остальным кто вызвался рассмотреть мои косяки

Beeper (2007-01-31 23:14:00) [3]
bagos (31.01.07 23:12) [11]

Пиши в ОнКиПресс():

if (Key = #13) then Key := #0;

bagos (2007-01-31 23:14:00) [4]
key:=#0; в onkeypress; так как тип char

Anatoly Podgoretsky (2007-01-31 23:13:00) [5]
> bagos (31.01.2007 23:12:11) [11]

Ну и где тут key := #0

bagos (2007-01-31 23:12:00) [6]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = 13) then begin if edit1.Text='123' then with form1 do begin label1.Visible:=true; image2.Visible:=false; edit1.Visible:=false; edit1.Enabled:=false; PlaySound('button24.wav',0,SND_ASYNC); end else with form1 do begin image2.Visible:=false; edit1.Visible:=false; edit1.Enabled:=false; label2.Visible:=true; PlaySound('combine_button_locked.wav',0,SND_ASYNC); end; end; end;

Anatoly Podgoretsky (2007-01-31 23:11:00) [7]
> bagos (31.01.2007 23:00:08) [8]

В твоем коде этого нет.
Ты уж давай правильный код, а не набор символов.

Beeper (2007-01-31 23:06:00) [8]
Ты музыку играй передобнулением.

bagos (2007-01-31 23:00:00) [9]
так и пишу в onkeypress key:=#0;
но это вроде обнуление символов,звука нет,но и ничего нет;)

Anatoly Podgoretsky (2007-01-31 22:44:00) [10]
> bagos (31.01.2007 22:39:06) [6]

Не для меня, а для нас, смотри тогда [4] beeper телепатически угадал.

bagos (2007-01-31 22:39:00) [11]
to Anatoly
if (key = 13) then begin if edit1.Text='123' then with form1 do begin edit1.Enabled:=false; PlaySound('button24.wav',0,SND_ASYNC); end else with form1 do begin label1.Visible:=true; PlaySound('combine_button_locked.wav',0,SND_ASYNC); end; end;

tesseract (2007-01-31 22:23:00) [12]
> Люди подскажите пожалуйста,столкнулся с такой штукой:обрабатываю
> onkeydown в

В PreTranslateMessage, глушить OnKeyDown и отправлять сообщение о потере фокуса Edit-у. Тогда всё только свой будет, хотя ни разу у меня Edit не Beep-ал.

Beeper (2007-01-31 22:22:00) [13]
Key := #0;

Anatoly Podgoretsky (2007-01-31 22:18:00) [14]
> bagos (31.01.2007 22:16:02) [2]

Спасибо не читаю, хоть и подписан, уже где то 700 сообщений в ящике лежит.

А что ты хочешь, если даже код не приводишь?

bagos (2007-01-31 22:16:00) [15]
может по теме будем Анатолий?мне это надо,а для смешков есть другие форумы,или на крайняк можна анекдоты почитать,ссылку дать?))

Anatoly Podgoretsky (2007-01-31 22:10:00) [16]
> Bagos (31.01.2007 22:05:00) [0]

Надеюсь, что ты полную пятую симфонию Бетховена пользователю проигрываешь, а то как то несерьезно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »