Форум: "Начинающим";
Текущий архив: 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.44 MB
Время: 0.084 c