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

السلام عليكم...

حدد أول Edit (مثلاً Edit1) تريدها أن تقبل أعداد كسرية (بالفاصلة) ثم اذهب إلى الحدث OnKeyPress الخاص بها. امسح أي كود مكتوب فيه سابقاً ثم انسخ إليه الكود التالي:

    if Key > #31 then begin
        if Key = '.' then begin
            if Pos('.', TEdit(Sender).Text) <> 0 then begin
                if TEdit(Sender).SelLength > 0 then begin
                    if Pos('.', TEdit(Sender).SelText) = 0 then
                        Key := #0;
                    end
                else
                    Key := #0;
            end;
            end
        else if not (Key in ['0'..'9']) then
            Key := #0;
    end;

* لنفرض أن لديك Edit أخرى (Edit2 مثلاً) تريدها أن تقبل أعداداً كسرية فقط (بالفاصلة). لاتنشئ لها إجراء للحدث OnKeyPress (و ذلك بالنقر المزدوج أمام هذا الحدث في نافذة الخصائص)، بل حدد Edit2 ثم اذهب إلى نافذة الخصائص و افتح القائمة المقابلة للحدث OnKeyPress ثم اختر اسم الحدث المرتبط بالـ Edit الأولى (مثلاً Edit1KeyPress).

قم بنفس الخطوة لكل Edit تريد له نفس الإجراء، و بهذا ستتشارك كل الـ Edits المطلوبة (على نفس الـ Form طبعاً) في نفس الإجراء. دون أن تحتاج إلى تكرار كتابته لكل Edit على حدة.

إذا كانت لديك Form أخرى فستحتاج طبعاً إلى أن تكتب الإجراء مرة واحدة في أحد الـ Edits الموجودة عليها، و تكرر نفس الخطوات.

نرجو الاستفادة و السلام.

اخي ناجي

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

شكرا على ردك اخي الكريم سأطبقه وسأرد بكلا الحالات

تحياتي

بامكانك أيضاً عمل مكون يرث الـ TEdit وتضيف له الخصائص والأحداث التي تريدها ...

وهذه الطريقة قد تناسبك بشكل أفضل

shalwan كتب:

اخي ناجي و ياسين

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

تحياتي

أخي ناجي

طبقته وكان المثال جيد اشكرك عليه اخي ناجي

اما اخي ياسين

فأنا لا اعرف اعداد المكون

فهل لي منك بذلك اخي ياسين

شكرا لكم