+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع العملة في edit (/showthread.php?tid=12348)
التعامل مع العملة في edit - bibill - 19-07-2023
السلام عليكم و رحمة الله
المطلوب كيف ادخل متغير من نوع عملة في edit تماما مثل ما يفعل dbedit عندما يكون المتغير Currency
RE: التعامل مع العملة في edit - Delphi4Us - 25-07-2023
وعليكم السلام ورحمة الله
استخدم MaskEdit بدل من EDIT
RE: التعامل مع العملة في edit - bibill - 29-07-2023
(25-07-2023, 11:40 PM)Delphi4Us كتب : وعليكم السلام ورحمة الله
استخدم MaskEdit بدل من EDIT
واجهت مشكلة في استخدام MaskEdit حيث يجبرني على ادخال كل قيم Mask كاملا .
هل عندك حل أو كود Mask يساعدني على ادخال مثلا 25.00 أو 1459.25 أو غير ذلك بدون مشكل
RE: التعامل مع العملة في edit - أبو معاذ - 29-07-2023
(19-07-2023, 10:11 AM)bibill كتب : السلام عليكم و رحمة الله
المطلوب كيف ادخل متغير من نوع عملة في edit تماما مثل ما يفعل dbedit عندما يكون المتغير Currency
و عليكم السلام ورحمة الله وبركاته.
هل تقصد أك تريد إدخال الأرقام و الفاصلة العشرية فقط؟
إذا كان كذلك ، في الحدث OnKeyPress للمكون edit و لنفرض أن اسمه edit1 ضع الكود التالي :
كود :
if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;
if Key = DecimalSeparator then
if Pos(DecimalSeparator, edit1.Text) <> 0 then
Key := #0;RE: التعامل مع العملة في edit - bibill - 30-07-2023
(29-07-2023, 09:43 AM)أبو معاذ كتب :كود :if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; if Key = DecimalSeparator then if Pos(DecimalSeparator, edit1.Text) <> 0 then Key := #0;
هذا الكود يسمح بإدخال أكثر من رقمين بعد الفاصلة و أيضا يسمح بإدخال أكثر من فاصلة