Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
2-1213024171
Franzy
2008-06-09 19:09
2008.07.13
Как узнать статус завершения запущенной консольной программы?


3-1201857058
Son_of_Morning
2008-02-01 12:10
2008.07.13
Помогите определится с выбором СУБД


15-1211962980
{RASkov}
2008-05-28 12:23
2008.07.13
defrag


2-1213285768
ivan8511
2008-06-12 19:49
2008.07.13
Индекс в обратном порядке


2-1213165699
Gringoire
2008-06-11 10:28
2008.07.13
Матрицы в делфи.