17-05-2010, 10:02 AM
تكتب في حدث OnkeyPress
وفي حدث OnkeyUp
أو أي كود آخر
كود :
if not (Key in ['0'..'9','.',#13,#8]) then Key:=#0;كود :
if Key = VK_RETURN then
Showmessage(Edit1.Text);