Форум: "Начинающим";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];
Вниз
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;
← →
Anatoly Podgoretsky © (2007-01-31 23:13) [12]> 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]
То есть, одна фиг разница, где обнулять, в онкипресс, или онкидаун...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.036 c
