Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Привет народ   Найти похожие ветки 

← →
Sergey_R   (2002-03-26 18:26) [19]

Пишешь на OnKeyPress <Edit1>
SystemParametersInfo(SPI_SETBEEP,0,nil,0);
case key of
"0".. "9", "-", chr (8): ;
".": if pos(".",Edit1.text)<>0 then
key:=chr(0);
chr(13): if Sender= Edit1 then
begin
........
end;
end;
Собственно, все. Удачи!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.008 c