Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

Как сделать так чтобы 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;

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
3-90228           Gelios                2001-12-24 06:50  2002.01.28  
Помогите плз!!


3-90230           Mr.Sane               2001-12-25 10:45  2002.01.28  
SQL


1-90324           DStealth              2002-01-10 19:01  2002.01.28  
Как импортировать из DLL класс?


14-90371          evgeg                 2001-12-01 11:40  2002.01.28  
Про конференцию


14-90378          limon                 2001-12-05 19:16  2002.01.28  
> Merlin. Глюк при записи ответа