Как застаить работать 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;

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

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

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