TMaskEdit

← →
Виталик (2002-04-25 17:52) [0]

Мне необходимо, чтобы TMaskEdit не реагировал на нажатие BackSpace. Это удается в onKeyPress посредством :
if key=#8 then key := #0,
но работает только в случае, если незадана маска (Edit Mask), а с маской этот код не действует, а мне нужно, чтобы по нажатии BackSpace курсор оставался на месте.
Спасибо!

← →
MBo © (2002-04-25 18:05) [1]

в OnKeyDown
if key=8 then key:=0;

В самом модуле mask.pas можно сделать следующее:

// это стандартное:
function TCustomMaskEdit.CharKeys(var CharCode: Char): Boolean;
var
SelStart, SelStop : Integer;
Txt: string;
CharMsg: TMsg;
begin
Result := False;

// тут мое начинается
GetSel(SelStart, SelStop);
if selstart = 0 then chch := charcode;
if ((selstart = 0) and (ord(charcode) > 50)) or
((selstart = 1) and (ord(chch) = 50) and (ord(charcode) > 51)) or
((selstart = 1) and (ord(charcode) > 52)) or
((selstart = 3) and (ord(charcode) > 53)) or
((selstart = 6) and (ord(charcode) > 53)) then exit;
// тут мое закачивается

if Word(CharCode) = VK_ESCAPE then
begin

Это добавление позволило корректную работу с временем от 00:00:00 до 23:59:59 без всяких доппроверок на валидность. Соответсвенно, можно и пробел исключить.

TMaskEdit Найти похожие ветки