Текущий архив: 2005.02.13;
Скачать: CL | DM;
Вниз
Маленькая проблема Найти похожие ветки
← →
ТехникПТО © (2005-01-31 15:32) [0]Есть Edit... событие OnChange.. нужно отследить чтобы значение text было только целые числа(т.е. Integer и подобное) и если не совпадает это условие то менять на нужное... как это сделать?
← →
tolstiak (2005-01-31 15:48) [1]а если через OnKeyPress?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9",#8]) then Key:=#0;
end;
только цифры от 0 до 9.
← →
ТехникПТО © (2005-01-31 16:01) [2]пасиб.. выручил :)
← →
SergP. (2005-01-31 18:08) [3]Для таких целей предназначен MaskEdit
Страницы: 1 вся ветка
Текущий архив: 2005.02.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.05 c
