Форум: "Начинающим";
Текущий архив: 2010.11.28;
Скачать: [xml.tar.bz2];
ВнизЗапрет звука по нажатию Enter Найти похожие ветки
← →
Semen (2010-09-07 07:07) [0]Есть обычное поле TEdit.
1.Когда в нем нажимаеш Enter Windows XP издает звук.
2.Когда доходиш до максимальной допустимой длинны поля и больше нельзя ввести символы (например когда MaxLength свойство = 3).
Как зделать так,чтобы его не было.
В смысле чтобы не отключать в самом Windows-e звук,
а отключить событие воспроизведения звука по нажатию Enter у меня в программе.
← →
Ser001 (2010-09-07 07:43) [1]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=Char(VK_RETURN) then
begin
key:=#0;
end;
end;
← →
Leonid Troyanovsky © (2010-09-07 07:53) [2]
> Semen (07.09.10 07:07)
> Как зделать так,чтобы его не было.
Это реакция эдита на illegal characters или превышение
допустимой длины. Для обращения внимания юзера.
Вообще-то, в диалогах клавиши Enter, Esc играют
специальную роль - для нажатия default & cancel
button и в этом случае в эдиты не попадают.
Ну, если очень хочется, можно в OnKeyPress:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TEdit do
if (Key in [ #13,#27]) or
((Length(Text) = MaxLength) and (SelLength = 0) and (Key <> #8)) then
Key := #0;
end;
--
Regards, LVT.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.11.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c