Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
16th
Май
Запретить вводить вторую точку
Posted by micher under Delphi
Как в Edit запретить вводить более одной точки?
Человек_Борща
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
//Не даем вводить ещё 1 точку
if (Key = '.') and bDotExists then
Key := #0;
//Разрешаем ввести точку если её ещё не было
if (Key = '.') and not bDotExists then
bDotExists := True;
//Если жмякаем Backspace и последний символ это точка, то она будет удалена
if (Key = #8) and bDotExists and (Edit1.Text[Length(Edit1.Text)] = '.') then
bDotExists := False;
end;
Похожие статьи
