Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
ВнизКонтроль вводимых данных в TEdit ? Найти похожие ветки
← →
S_Flash (2005-08-22 12:45) [0]Подскажите пожалуйста наиболее простой способ контроля формата вводимых данных в Edit, в случае если требуется не допустить ввода текстовых данных, а пропустить только числовые?
← →
ArtemESC (2005-08-22 12:51) [1]На KeyPress
for i := 1 to Length(Edit1.Text) do
begin
If not (Edit1.Text[i] in [0..9]) then ShowMessage("Не число!");
end;
← →
ArtemESC (2005-08-22 13:02) [2]На KeyPress
If not (Key in ["0".."9"]) then ShowMessage("Не число!");
← →
Eraser © (2005-08-22 13:04) [3]ArtemESC
А как быть с Copy/Paste по правому щелчку мыши?
← →
begin...end © (2005-08-22 13:10) [4]TEdit.OnChange, StringReplace
← →
Floppy © (2005-08-22 13:22) [5]Ну и не забыть о DecimalSeparator и BackSpase:)
← →
S_Flash (2005-08-22 13:53) [6]А всетаки, как быть с Paste по правому щелчку мыши или Ctr+V?
← →
Anatoly Podgoretsky © (2005-08-22 14:06) [7]Почему бы пользователю не вводить, то что он считает нужным в конкретный момент времени?
← →
S_Flash (2005-08-22 14:18) [8]"Почему бы пользователю не вводить, то что он считает нужным в конкретный момент времени?"
А если это например размер изображения в граф редакторе?
Сделал такvar значение: integer {то самое значение Edit1}
procedure TForm1.Edit1Change(Sender: TObject);
var va,code:integer;
begin
Val(Form1.Edit1.Text, va, code);
if code=0 then
значение:=strtoint(Form1.Edit1.Text);
else
Form1.Edit10.Text:=inttostr(значение);
end;
← →
Anatoly Podgoretsky © (2005-08-22 15:06) [9]Ну и что, что размер, ну например пользователь хочет вставить из другого места текст w100h200 - зачем удалить лишнее или скажем ввести 200? подумать и удалить знак вопроса. Зачем же ему менять, все таки не он для нас, а мы для него. Нам же остается или принять его ввод или отвергнуть, если он не верный и то сделать это удобно для пользователя.
← →
Starcom (2005-08-22 16:04) [10]Используй компонент из библиотеки Rx! т.е RxEdit!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c