[dmit2222]

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

[NumLock]

1. TMaskEdit
2. ComboBox1.Style:=csDropDownList;

[dmit2222]

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

1. TMaskEdit
2. ComboBox1.Style:=csDropDownList;

А как тогда сделать чтобы курсор в TMaskEdit всегда становился на начало?

[lmikle]

1.

Код:

procedure TForm1.Edit1KeyPress(Sender : Tobject; var Key : Char);
begin
  If Not (Key In ['0'..'9']) Then Key := #0;
end;

[dmit2222]

Как запретить ввод в edit?

[dmit2222]

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

1.

Код:

procedure TForm1.Edit1KeyPress(Sender : Tobject; var Key : Char);
begin
  If Not (Key In ['0'..'9']) Then Key := #0;
end;

Все получилось, но теперь не стирает backspace-ом. Можно ли это как-то исправить?

[NIch]

Код:

procedure TForm1.Edit1KeyPress(Sender : Tobject; var Key : Char);
begin
  Case Key of
    '0'..'9', #8:;// Цифры и Backspase
    ',' , '.':;// Точка и запятая
    else Key := #0;// Остальные символы гасить
  end;
end;