Форум: "Начинающим";
Текущий архив: 2007.03.25;
Скачать: [xml.tar.bz2];

Вниз

Как учесть клавишу "BACKSPACE"?   Найти похожие ветки 

← →
Roman_S ©   (2007-03-04 15:17) [0]

Как в данном коде учесть клавишу "BACKSPACE" (чтобы срабатывало)?
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: char);
begin
if not (key in ["A".."Z", "a".."z", "0".."9"]) then
  key := #0;
end;

---

← →
default ©   (2007-03-04 15:28) [1]

если не ошибаюсь, то так
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: char);
begin
if not (key in ["A".."Z", "a".."z", "0".."9", #27]) then
 key := #0;
end;

---

← →
default ©   (2007-03-04 15:29) [2]

ой нет
я про ескейп подумал
у бэкспейса другой код

---

← →
Palladin ©   (2007-03-04 15:38) [3]

#8

---

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

Форум: "Начинающим";
Текущий архив: 2007.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c