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

Вниз

Вопрос по TSpinEdit.OnKeyPress   Найти похожие ветки 

 
Дельфятник   (2002-10-15 15:33) [0]

Почему-то это событие не ловит нажатие клавиши Enter - то есть по нажатию на Enter программа не вызывает обработчик события TSpinEdit.OnKeyPress. Это у всех так, или это только у меня руки кривые?


 
AL2002 ©   (2002-10-15 15:38) [1]

Может, OnKeyDown?


 
Дельфятник   (2002-10-15 15:54) [2]

Да, это понятно, что для ловли нажатия Enter"a для TSpinEdite"a надо использовать OnKeyDown (OnKeyUp). Вопрос был в другом.


 
Zemal ©   (2002-10-15 15:59) [3]

А ты в форме поставил "KeyPreview := True"? Поставь...


 
Дельфятник   (2002-10-15 16:05) [4]

Поставил у формы KeyPreview := True и ничего не изменилось.


 
Дельфятник   (2002-10-15 16:12) [5]

Теперь я всё понял:

procedure TSpinEdit.KeyPress(var Key: Char);
begin
if not IsValidChar(Key) then
begin
Key := #0;
MessageBeep(0)
end;
if Key <> #0 then inherited KeyPress(Key);
end;

function TSpinEdit.IsValidChar(Key: Char): Boolean;
begin
Result := (Key in [DecimalSeparator, "+", "-", "0".."9"]) or
((Key < #32) and (Key <> Chr(VK_RETURN)));
if not FEditorEnabled and Result and ((Key >= #32) or
(Key = Char(VK_BACK)) or (Key = Char(VK_DELETE))) then
Result := False;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
1-78359
Nikoss
2002-10-09 14:09
2002.10.24
нужно переменной s присвоить фразу в которой встречается символ


3-78266
AlexeyMir
2002-10-01 12:03
2002.10.24
DBDesktop - русский шрифт


4-78734
EndDie
2002-09-10 12:43
2002.10.24
ReadProcessMemory


4-78703
mike.dld
2002-08-19 15:41
2002.10.24
Hints to MBo


1-78368
Help Needer
2002-10-10 09:47
2002.10.24
TOO LONG CODE