السلام عليكم
كيف يمكنني عمل Loop علي جميع النماذج Forms التي قمت بانشائها برمجيا وتعديل الـCaption لها علي سبيل المثال.
تحياتي لكم . :blink:
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
var i:integer; begin for i := 0 to Application.ComponentCount -1 do begin if Application.Components is TForm then begin (Application.Components as TForm).Caption:= 'MMMMM'; end; end;
انظر الرابط التالي:
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
شكرا جزيلا لك اخي waeldalol
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
بعد اذن مشرفنا العزيز
هناك طريقة اخرى افضلها، وهي اسرع وتحتاج كود اقل وهي العمل مع screen.forms مباشرة
var I : Integer; begin for I := 0 to Screen.FormCount - 1 do Screen.Forms.Caption := 'mmmmm'; end;
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
وينك ما عد بينت علينا اشتقنالك كثير بالمنتدى و لمشاركاتك الحلوة
نرجوا ان تعود الينا بعد هذا الانقطاع
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
هذا الموضوع مغلق.