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

Вниз

Как сделать так чтобы edit не реагировал бипом на нажатие заперщенных клавиш?   Найти похожие ветки 

 
ЛамерОК   (2002-01-09 14:01) [0]

Как сделать так чтобы edit не реагировал бипом на нажатие заперщенных клавиш?


 
Vovchik ©   (2002-01-09 14:12) [1]

У меня дома это записано, если подождёшь часов до 10 вечера, напишу...


 
Dimka Maslov ©   (2002-01-09 14:20) [2]

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


 
ЛамерОК   (2002-01-09 14:44) [3]

У меня написана на нажатие ENTER процедура, она ваполняется, но пишит, как мне от этого избавиться. Ваш ответ не помог!


 
Dimka Maslov ©   (2002-01-09 16:40) [4]

Тогда попробуй через KeyDown

procedure TForm1.Edit1KeyDown(....
begin
if Key = VK_RETURN then Key:=0;
end;


 
panov ©   (2002-01-09 17:46) [5]

Установи всвойство формы KeyPreview в True,
Используй свойство FormKeyPress для обработки:

procedure TfDocEdit.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #27) then
begin
Key:=#0;
if (fDocEdit.ActiveControl is TEdit) then
begin
TEdit(fDocEdit.ActiveControl).Text := vPrevValue;
TEdit(fDocEdit.ActiveControl).modified := False;
end;
end;
if (Key = #13) then
begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;

end;

Нужный тебе код выделен жирным шрифтом




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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
4-90420
Alex870
2001-11-28 22:48
2002.01.28
Неужели никто не знает...


7-90405
Лана Розанова
2001-10-11 12:07
2002.01.28
Путь к каталогу


3-90237
Д_Россиев
2001-12-23 10:25
2002.01.28
Подключение TDataSource к Access-Application


1-90316
apav
2002-01-11 15:17
2002.01.28
UTF-8


7-90399
VEG
2001-10-14 10:38
2002.01.28
Поиск файлов в какалоге.