19-03-2015, 06:27 PM
[INDENT]
وعليكم السلام ورحمة الله وبركاته
KeyPress الخاص بالEdit
[/INDENT]
وعليكم السلام ورحمة الله وبركاته
KeyPress الخاص بالEdit
كود :
if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;
if Key = DecimalSeparator then
if Pos(DecimalSeparator, MyEdit.Text) <> 0 then
Key := #0;
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.