Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Отловить Enter


Runner ©   (2004-02-11 23:49:00) 

Как в приложении на WinAPI отловить нажатие клавиши Enter в EDIT'е: И как потом убрать этот пронзительный звук?


AKul   (2004-02-12 12:20:00) [1]


> Runner   (12.02.04 10:38) [5]
> А на WinAPI?

Получить WindowProc этого Edit'а, используя GetWindowLong(Handle,GWL_WNDPROC) и сохранить его. Установить свою WindowProc (используя SetWindowLong), в которой обрабатывать сообщения WM_CHAR и подобные. В случае обнаружения нажатия Enter'а - выполнить нужные действия и выйти из WindowProc. В противном случае передать управление сохраненной WindowProc.


Runner   (2004-02-12 10:38:00) [2]

> KosilkA ©   (12.02.04 10:34) [4]

А на WinAPI?


KosilkA   (2004-02-12 10:34:00) [3]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then showmessage('ку-ку');
end;


Runner   (2004-02-12 10:22:00) [4]

%( )

хм... а как отловить нажатие Enter'а в EDIT'е, чтобы сделать что-то. Т.е. замутить свой обработчик такого события.


Runner   (2004-02-12 10:15:00) [5]

Неужели такой сложный вопрос?


Vit@ly   (2004-02-12 10:15:00) [6]

Отключи динамик.
Ключ: [HKEY_CURRENT_USER\Control Panel\Sound]
Параметр: Beep
Тип: REG_SZ
Значение: 'Yes' или 'No'


Наверх

Титульная страница Поиск, карта сайта Написать письмо