delphi4arab منتديات دلفي للعرب - التعامل مع العملة في edit

السلام عليكم و رحمة الله
المطلوب كيف ادخل متغير من نوع عملة في edit تماما مثل ما يفعل dbedit عندما يكون المتغير Currency

وعليكم السلام ورحمة الله

استخدم MaskEdit بدل من EDIT

(25-07-2023, 11:40 PM)Delphi4Us كتب : [ -> ]وعليكم السلام ورحمة الله

استخدم MaskEdit بدل من EDIT

واجهت مشكلة في استخدام MaskEdit حيث يجبرني على ادخال كل قيم Mask كاملا .
هل عندك حل أو كود Mask يساعدني على ادخال مثلا 25.00 أو 1459.25 أو غير ذلك بدون مشكل

(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;

(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;

هذا الكود يسمح بإدخال أكثر من رقمين بعد الفاصلة و أيضا يسمح بإدخال أكثر من فاصلة