Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Как убрать звук при нажатии Enter а в TEdit e.   Найти похожие ветки 

 
Darkwing ©   (2005-08-30 08:42) [0]

Я помню что как-то как, но он все равно брякает

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if Key = 13 then DoSomething...
Key := 0;
end;


 
злобная танька   (2005-08-30 08:45) [1]

OnKeyPressed


 
Anatoly Podgoretsky ©   (2005-08-30 09:48) [2]

Сделай кнопку по умолчанию, будет профессионально.


 
capkoh ©   (2005-08-30 13:37) [3]

По-моему, это было в FAQ. Но, вот решение:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then Key := #0;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.032 c
9-1117122156
Skard
2005-05-26 19:42
2005.09.25
Проблема с текстурой


8-1115883781
Fl@sh
2005-05-12 11:43
2005.09.25
TBitMap


1-1125716526
Ivanov
2005-09-03 07:02
2005.09.25
*.pak - архив


2-1124197843
PIF
2005-08-16 17:10
2005.09.25
Разделитель между целой и дробной частью числа


3-1123582327
Николай2005
2005-08-09 14:12
2005.09.25
Удобная установка BDE