beep при OnKeyDown

← →
Bagos (2007-01-31 22:05) [0]

Люди подскажите пожалуйста,столкнулся с такой штукой:обрабатываю onkeydown в edit"e и сделал чтобы при нажатии на ентер воспроизводилась мелодия,но еще и проигрывается стандартный beep бкак избавится от него,а то всю малину портит?
Спасибо

← →
Anatoly Podgoretsky © (2007-01-31 22:10) [1]

> Bagos (31.01.2007 22:05:00) [0]

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

← →
bagos (2007-01-31 22:16) [2]

может по теме будем Анатолий?мне это надо,а для смешков есть другие форумы,или на крайняк можна анекдоты почитать,ссылку дать?))

← →
Anatoly Podgoretsky © (2007-01-31 22:18) [3]

> bagos (31.01.2007 22:16:02) [2]

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

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

← →
Beeper (2007-01-31 22:22) [4]

Key := #0;

← →
tesseract © (2007-01-31 22:23) [5]

> Люди подскажите пожалуйста,столкнулся с такой штукой:обрабатываю
> onkeydown в

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

← →
bagos (2007-01-31 22:39) [6]

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;

← →
Anatoly Podgoretsky © (2007-01-31 22:44) [7]

> bagos (31.01.2007 22:39:06) [6]

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

← →
bagos (2007-01-31 23:00) [8]

так и пишу в onkeypress key:=#0;
но это вроде обнуление символов,звука нет,но и ничего нет;)

← →
Beeper (2007-01-31 23:06) [9]

Ты музыку играй перед обнулением.

← →
Anatoly Podgoretsky © (2007-01-31 23:11) [10]

> bagos (31.01.2007 23:00:08) [8]

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

← →
bagos (2007-01-31 23:12) [11]

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;

> bagos (31.01.2007 23:12:11) [11]

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

← →
Beeper (2007-01-31 23:14) [13]

bagos (31.01.07 23:12) [11]

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

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

← →
bagos (2007-01-31 23:14) [14]

key:=#0; в onkeypress; так как тип char

← →
bagos (2007-01-31 23:16) [15]

Beeper,спасибо получилось.
И спасибо остальным кто вызвался рассмотреть мои косяки

← →
Beeper (2007-01-31 23:18) [16]

Beeper (31.01.07 23:14) [13]

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

beep при OnKeyDown Найти похожие ветки