إجبار Edit على كتابة الأرقام فقط من دون دالة OnKeyPress

[SamirAloui]

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

انا بصدد عمل تطبيق موبيل انصدمت بعدم توفر دالة OnKeyPress في المكون Edit مثل الموجودة في تطبيقات سطح المكتب

يجب علي جعل ال Edit لا يقبل إلا الأرقام من 0 الى 9 وايضا علامة الفاصلة ',' و عند إدخال النقطة '.' تنتج مباشرة فاصلة هذا من أجل الأعداد الحقيقية ( ولو توفرت طريقة أخرى لحل مشكل النقطة فهذا افضل )

هذا الكود الذي كتت استخدمه في تطبيقات سطح المكتب في الاجراء OnKeyPress الخاص بال Edit نضع

كود :

if Key = #46 then // عند إدخال النقطة Key := #44; // يتم تحويل النقطة إلى فاصلة if not (Key in [#8,'0'..'9',',']) then Key := #0;

اضن ان في تطبيقات الموبيل يوجد اجراء بديل للاجراء OnKeyPress لذا قمت بعمل هذه الصورة التي تمثل الإجراءات الممكنة مع ال Edit



و إذا كانت فيه طريقة اخرى بإستخدام الدالة OnKeyDown فلا تبخلو عنا و جزاكم الله خيرا

[S.FATEH]

السلام عليكم جرب هذا الكود ربما يساعدك

PHP كود :

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  if Key = vkPeriod then Key := vkComma else
  if not(CharInSet(Key, [#8, '0'..'9', ',']))
   then Key := 0;
end; 


[SamirAloui]

السلام عليكم جرب هذا الكود ربما يساعدك

PHP كود :

procedure tform1.edit1keydown(sender: Tobject; var key: Word; var keychar: Char;
  shift: Tshiftstate);
begin
  if key = vkperiod then key := vkcomma else
  if not(charinset(key, [#8, '0'..'9', ',']))
   then key := 0;
end; 


و عليكم السلام

قمت بتجريبه لكن لا يشتغل للأسف

[Agmcz]

توجد هده الخاصية في الإصدارات الأخيرة

PHP كود :

Edit1.NumbersOnly := True; 


تغني عن الحدث keypress

[SamirAloui]

توجد هده الخاصية في الإصدارات الأخيرة

PHP كود :

Edit1.NumbersOnly := True; 


تغني عن الحدث keypress

مرحبا اخي لم أجد هذه الخاصية و لما كتبت الكود نتج عنه خطأ

ال Edit لا يعرف هذه الدالة NumbersOnly

صورة

[Agmcz]

عموما في XE6 موجودة ولا اعرف الإصدارات السابقة

دعم الإصدارات السابقة

PHP كود :

procedure SetNumbersOnly(Edit: TEdit; Value: Boolean);
begin
  if Value then
    SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE)
      or ES_NUMBER)
  else
    SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE)
      and not ES_NUMBER);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetNumbersOnly(Edit1, True);
end; 


[SamirAloui]

جزاك الله حيرا اخي على المتابعة

انا اعمل على آخر اصدار delphi xe6 لكني لم اجد تلك الحاصية :confused:

المهم جربت الإجراء الذي كتبه ممكن المكتبات التي اضيفها في uses حتى يعمل لأنو لم يتعرف على

تلك الدوال

صورة

[Agmcz]

كل الدي وضعته هو على VCL Forms
اما خارجه شيء آخر

[SamirAloui]

عرف لمذا لم اجد تلك الخاصية في Edit انا اعمل على firemonkey و ليس vcl

[SamirAloui]

وجدت الحل و هو باستخدام المكون NumberBox الجاهز للأعداد فقط على منصة firemonkey

شكرا للجميع و اتمنى لكم الاستفادة