Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

Как убрать MessageBeep?   Найти похожие ветки 

← →
TUserClass   (2008-06-11 16:03) [0]

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

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

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

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

---

← →
Игорь Шевченко ©   (2008-06-11 16:09) [1]

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

---

← →
TUserClass   (2008-06-11 16:14) [2]

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


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

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c