только цифры в поле

← →
td (2005-10-24 11:29) [0]

как попроще сделать, чтобы в (обычное) поле можно было вводить только цифры?

← →
Ega23 © (2005-10-24 11:32) [1]

procedure TFClassConfig.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ["0".."9", #8]) then Key:=#0; end;

← →
td (2005-10-24 11:33) [2]

а че такое #8 здесь?

← →
Ega23 © (2005-10-24 11:39) [3]

> а че такое #8 здесь?

Backspace

← →
begin...end © (2005-10-24 11:41) [4]

> td (24.10.05 11:29)

Можно добавить стиль ES_NUMBER:

SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE) or ES_NUMBER)

но это, как и [1], не решит проблему полностью: в edit можно будет вставить любой текст из буфера обмена. Если это тоже нужно запретить, то можно обрабатывать OnChange, например. Или позволять вводить что угодно, проверяя корректность введённых данных непосредственно перед их использованием.

← →
td (2005-10-24 11:42) [5]

ага
спасибо

> но это, как и [1], не решит проблему полностью: в edit можно
> будет вставить любой текст из буфера обмена. Если это тоже
> нужно запретить, то можно обрабатывать OnChange, например.
> Или позволять вводить что угодно, проверяя корректность
> введённых данных непосредственно перед их использованием.
>
>

Угу. Я, в общем-то, так и делаю. [1] - "грубый" запрет, а перед использованием -
try StrToInt(Edit1.Text); except on E:Exception do begin Edit1.SetFocus; MessageBox(Handle, PChar("Неверное значение!"), PChar("Внимание!"), MB_OK or MB_ICONWARNING); Exit; end; end;

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