edit

← →
Бэтман (2008-02-02 23:45) [0]

Как в компоненте edit разрешить ввод только цифр ? То есть значение должно быть целочисленое ?

← →
{RASkov} © (2008-02-02 23:53) [1]

if not Key in ["0".."9", #8] then Key:=#0; в KeyPress
PS: В Edit.Text всегда только строковое значение...

← →
KilkennyCat © (2008-02-02 23:54) [2]

> #8

это же только один вариант удаления?

← →
Alral © (2008-02-02 23:58) [3]

Как вариант можно проверять при использовании компонента
try
a:=StrToInt(Edit1);
...
except
ShowMessage("Only numbers allowed");

← →
Семеныч (2008-02-02 23:58) [4]

Вариант 1 - установить стиль окна.
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

Вариант 2 - обработать OnKeyPress:
if not (Key in [ #8, "0".."9"]) then Key := #0;

Дополнительно придется обрабатывать вставку из буфера обмена.

← →
Бэтман (2008-02-03 00:01) [5]

if not Key in ["0".."9", #8] then Key:=#0; в KeyPress вот на эту строчку компилятор ругаеться (
ufMain.pas(1930): Operator not applicable to this operand type

← →
{RASkov} © (2008-02-03 00:04) [6]

> [5] Бэтман (03.02.08 00:01)

Скобки поставь :(
См [4]

← →
Бэтман (2008-02-03 00:04) [7]

#8 а это зачем ?

> [7] Бэтман (03.02.08 00:04)

Это код клавиши BackSpace..
А вот для чего - догадался? :)

← →
Бэтман (2008-02-03 00:08) [9]

Понятно всем спасибо за помощь )

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