14-02-2008, 07:43 AM
ممتاز, اذا استطيع جعلها تدعم الفاصلة ايضا:
كود :
begin
if not (Key in ['0'..'9', #8, '.']) then
begin
Key := #0;
Beep;
end;
end;
