Текущий архив: 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.009 c
