Как сделать в Edit Ввод только чисел

[Pashin]

Привет! Как сделать в Edit Ввод только чисел?

[Alex21]

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9']+[#8]then
  begin

  end else Key:=#0;
end;

[Alter]

Лучше так:

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

[XPAiN]

Если написать такой код, то работа с выделением уже не работает.

[Квэнди]

Сообщение от XPAiN

Если написать такой код, то работа с выделением уже не работает.

Напишите конкретный пример когда приведенные выше варинаты не работают и предложите свое решение

[XPAiN]

Решение правильное, но выделение перестает работать. Решение этого вопроса заключается в использовании компонента jvValidateEdit из набора JVCL. как сделать чтобы работало выделение, если используешь KeyPress, я не знаю.

[_SERGEYX_]

Избитый вопрос.
Вот оптимальный вариант:

var vrPos, vrLength, vrSelStart: byte;
const
  I: byte = 1; //2 знака после разделителя
begin
  with Sender as TEdit do
  begin
    vrLength := Length(Text);
    vrPos := Pos(decimalseparator, Text);
    vrSelStart := SelStart;
  end;
  case Key of
    '0'..'9':
      begin
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Key := #0;
      end;
    ',', '.':
      begin
        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
          Key := #0
        else
          Key := #46;
      end;
    #8: ;
  else
    Key := #0;
  end;

[Dimoney]

Объект MaskEdit не пойдет для Вашей цели? Св-во EditMask должно помочь...

[mihali4]

выделение перестает работать.

Почему же у меня работает? И мышкой выделяется, и клавишами?
Что именно не работает-то, толком сказать можно?

[JTG]

1. TMaskEdit

2. Свойство edit`а ES_NUMBER (учите API)

procedure TForm1.Create(Sender: TObject);
var style: cardinal;
begin
  style := GetWindowLong(Edit1.Handle, GWL_STYLE);
  SetWindowLong(Edit1.Handle, GWL_STYLE, style + ES_NUMBER);
end;