|
|
|
|
|
|
#1
01.12.2013, 18:33
|
||||
|
||||
Код для TEdit
Код:
if not (Key in ['0'..'9',#8,#13]) then
if Key in [#46] then
if Pos( '.', ( Sender as TEdit ).Text ) <> 0 then
Key:=#0
else
else
Key:=#0думаю под DBEdit сам допилишь  |
| Этот пользователь сказал Спасибо Decoding за это полезное сообщение: | ||
govorun (02.12.2013)
| ||
Комбинированный вид
