Главная страница
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
6-1117675691
Lex_!
2005-06-02 05:28
2005.09.25
Работа с Explorerом (программный выбор елементов)


1-1125577892
CatiL
2005-09-01 16:31
2005.09.25
Как сделать один из ItemIndex ComboBoха неактивным


1-1125482078
Barloggg
2005-08-31 13:54
2005.09.25
Какое сложение двух пар чисел быстрее?


14-1122216802
Ptr
2005-07-24 18:53
2005.09.25
Ищу работу программиста-стажера на Delphi в Москве


1-1125468384
SergProger
2005-08-31 10:06
2005.09.25
Меню программы на TaskBar