Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Как застаить работать backspace?   Найти похожие ветки 

 
vsu   (2003-06-25 11:37) [0]

Как мне заставить работать backspace? Делаю так


procedure TMnFrm.MaskKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9"]) then
begin
if Key = #13 then SelBtn.Click;
if Key = #8 then Key := #8;
Key := #0;
end;
end;
и backspace не срабатывает :(


 
vsu   (2003-06-25 11:43) [1]

Ну не ужели никто не знает?


 
MacroDenS ©   (2003-06-25 11:44) [2]

ну дык поставь обработчик свой.


 
Smithson ©   (2003-06-25 11:44) [3]

if Key = #8 then Key := #8;
Key := #0;

По шагам подумай, что написал. Или в отладчике просмотри.
Подсказка - каков смысл первой строчки?


 
Юрий Зотов ©   (2003-06-25 12:10) [4]

if not (Key in ["0".."9"]) then
begin
if Key = #13 then SelBtn.Click;
if Key <> #8 then Key := #0;
end;



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

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-20120
kalishenko
2003-06-24 19:50
2003.07.07
Как определить выходные дни?


6-20178
DubAnton
2003-04-30 10:07
2003.07.07
Как узнать список компов в не в сети, а в домене.


14-20279
ewgeny
2003-06-20 11:20
2003.07.07
Интеграция кассовой программы с 1С Предприятием


14-20243
Soft
2003-06-19 18:09
2003.07.07
Уязвимость в Win2000


3-19979
???
2003-06-12 23:11
2003.07.07
ADO выдаёт ошибки...