Как вести в TEdit только цифры

← →
Gawk (2003-10-09 11:14) [0]

Здравствуй Уважаемый ALL.
Подскажите мне как в TEdit вводить только цифры.
Заранее благодарен

← →
Skier (2003-10-09 11:15) [1]

стиль ES_NUMBER

← →
TUser (2003-10-09 11:21) [2]

Можно использовать св-во MaskEdit. Или еще так
procedure OnKeyPress(var Key); begin if not key in ["0","1", и т.д., "9"] then key:=""; end;

← →
Gawk_ (2003-10-09 11:49) [3]

> стиль ES_NUMBER

Не подскажешь как работать со стилями если чесно я про них первый раз слышу.

> procedure OnKeyPress(var Key);
> begin
> if not key in ["0","1", и т.д., "9"] then key:="";
> end;

Выдаёт ошибку о несоответствии типов

← →
AlexSV (2003-10-09 11:55) [4]

А так
if not key in ["0".."9"] then key:=#0;

← →
-=[SDA]=- (2003-10-09 11:55) [5]

На OnKeyPress я писал так:

if not(Key in ["0".."9", Chr(VK_BACK)]) then Key := #0;

← →
TUser (2003-10-09 12:00) [6]

Со стилями? В смысле, что писать в MaskEdit. Если надо, чтобы вводились только цифры - то в IDE есть специальный редактор, вызывается из Object Inspector"а. Там все интуитивно-понятно. Ну и в хелпе что-то есть. Maskedit, собственно, записывается, как regular expretion в каком-нибудь перле или JavaScript, почти по том же правилам.

Как вести в TEdit только цифры Найти похожие ветки