Какое условие поставит для Edit в Delphi чтобы можно было вводить только цифры ?

Цитата(Guest @ 16.11.2002, 21:52)

Какое условие поставит для Edit в Delphi чтобы можно было вводить только цифры ?

if ord(edit1.text[length(edit1.text)]<48)
or ord(edit1.text[length(edit1.text)]>57)
then edit1.text:=copy(edit1.text,1,length(edit1.text)-1);

OnKeyPress:

if not (Key in ['0'..'9']) then Key:=#0;


Но этого недостаточно, надо обрабатывать ещё и onChange на случай если попытаются внести что-то при помощи Clipboard. А вообще это как раз тот случай когда надо использовать или TSpinEdit или написать свой компонент.

ES_NUMBER

Цитата(Song @ 17.11.2002, 05:03)

ES_NUMBER

Что-то я его в help'e не нашёл, это сообщение? В модуле Windows константа определена в разделе "Control Manager Structures and Definitions" - и как ей пользоваться?

А может проще MaskEdit?

Цитата

А может проще MaskEdit?

Проще, но не всегда подходит

Цитата(Vit @ 17.11.2002, 16:39)

Цитата(Song @ 17.11.2002, ) ES_NUMBER Что-то я его в help'e не нашёл, это сообщение? В модуле Windows константа определена в разделе "Control Manager Structures and Definitions" - и как ей пользоваться?

Это не сообщение, это стиль.
Он появился от IE 4.0. Чтобы его активировать, надо перекрывать CreateParams

А может не изобретать велосипед, а использовать RxLib

S := GetWindowLong(Edit1.Handle,GWL_STYLE);
S := S OR ES_NUMBER;
SetWindowLong(Edit1.Handle,GWL_STYLE,S);

HO ! ES_NUMBER не поможет при вставке данных из Clipboard.
Тут метод предложенный Vit (OnChange) имеет большую силу.

что-то вроде

procedure TForm1.Edit1Change(Sender: TObject);
var f : Extended;
begin
if (Edit1.Text = '') or (Edit1.Text = '-') then exit;
try
 f := StrTofloat(Edit1.Text);
except on e:exception do
begin
 edit1.text := s;
 edit1.SelStart := length(s);
end;
end;
s := edit1.text;
end;

Насколько я помню ES_NUMBER нельзя включить через SetWindowLong(). Именно поэтому я не написал этот вариант.

запросто можно.
я не раз подобное делал, только с другими стилями, заодно попробовал сделать с ES_NUMBER - ok

Народ я в программировании полный ноль !!! Сделал на Delphi обычный калькулятор
Типа
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrtoInt(Edit1.Text)+StrtoInt(Edit2.Text);
Edit3.Text:=InttoStr(a);
end;

Если можете, объясите какое условие поставить для Edit1 и Edit2,    чтобы можно было вводить только цифры ?

На моём примере покажите PLZ а то я в ваших месагах ничего не понимаю

Для твоих Edit1 и Edit2 в обработчике события onKeyPress поставь строку:

Код

if not (Key in ['0'..'9']) then Key:=#0;

На твоём примере никак не покажешь, так как при исполнении твоего кода значения в Edit поля уже введены, можно только проверить числа там или нет

алекс - ты мой код видел?
Поставь для события OnChange обоих Edit этот код (скопируй и вставь).