المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
السلام عليكم و رحمة الله
المطلوب كيف ادخل متغير من نوع عملة في edit تماما مثل ما يفعل dbedit عندما يكون المتغير Currency
- لا شيء من لا شيء ............... ؟
المشاركات : 1,677
المواضيع 349
:
: 1,069
الإنتساب : Nov 2013
وعليكم السلام ورحمة الله
استخدم MaskEdit بدل من EDIT
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
(25-07-2023, 11:40 PM)Delphi4Us كتب : وعليكم السلام ورحمة الله
استخدم MaskEdit بدل من EDIT
واجهت مشكلة في استخدام MaskEdit حيث يجبرني على ادخال كل قيم Mask كاملا .
هل عندك حل أو كود Mask يساعدني على ادخال مثلا 25.00 أو 1459.25 أو غير ذلك بدون مشكل
- لا شيء من لا شيء ............... ؟
المشاركات : 1,252
المواضيع 170
:
: 1,500
الإنتساب : Jul 2009
(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;
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
(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;
هذا الكود يسمح بإدخال أكثر من رقمين بعد الفاصلة و أيضا يسمح بإدخال أكثر من فاصلة
- لا شيء من لا شيء ............... ؟
