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

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

Как убрать MessageBeep?

TUserClass ©   (2008-06-11 16:03:00) 

Добрый всем вечер!

Встала проблема появления "писка" (не поймите это слово не правильно) во время нажатия в Edit'е клавиши Enter. Вот есть код.

procedure SearchTextOnKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 If Key = 13 then begin
   SearchButton.OnClick (Sender);
 end;
end;

Кнопка SearchButton срабатывает, но при этом раздается писк. Как вылечить?

---

TUserClass   (2008-06-11 16:14:00) [1]

> Игорь Шевченко ©   (11.06.08 16:09) [1]
> If Key = 13 then begin
>    SearchButton.OnClick (Sender);
>    Key := 0;
>  end;


Так не сработало....но поменяв событие и добавив Key := #0; все получилось

procedure SearchText OnKeyPress(Sender: TObject; var Key: Char);
begin
 If Key = #13 then begin
   SearchButton.OnClick (Sender);
   Key := #0;   
 end;
end;

Спасибо, Игорь Шевченко... :)

---

Игорь Шевченко   (2008-06-11 16:09:00) [2]

If Key = 13 then begin
   SearchButton.OnClick (Sender);
   Key := 0;
 end;

---

Наверх