| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMaskEdit [D3, Win95/98]

Виталик ©   (2002-04-25 17:52:00) 

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

---

KilkennyCat   (2002-04-26 03:22:00) [1]

В самом модуле 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 без всяких доппроверок на валидность. Соответсвенно, можно и пробел исключить.

---

MBo   (2002-04-25 18:05:00) [2]

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

---

Наверх