| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать так чтобы edit не реагировал бипом на нажатие заперщенных клавиш? [D5, Win95/98]

ЛамерОК ©   (2002-01-09 14:01:00) 

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

---

panov   (2002-01-09 17:46:00) [1]

Установи всвойство формы 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;

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

---

Dimka Maslov   (2002-01-09 16:40:00) [2]

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

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

---

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

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

---

Dimka Maslov   (2002-01-09 14:20:00) [4]

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

---

Vovchik   (2002-01-09 14:12:00) [5]

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

---

Наверх