Forum > Arabic

معرفة أدوات النموذج

<< < (2/7) > >>

Al-Eid:
السلام عليكم
أسف على التأخر
و شكرا على المرور والإهتمام
الكود السابق مأخود من دلة تقوم بتفريغ الأدوات الموجودة في الفورم فإذكانت الأداة Edit يقوم بمسح محتواها وإذا كانت  comboboxيقوم يتغيير ItemIndex  إلى  -1  وهكذا

وبإختصار المفيد هذا الكود

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---form1.ComponentCount
يعطي لنا عدد الأدوات الموجودة في الفورم
والكود التالي يمكن أن نتعرف على نوع الأدوات

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---if form1.Components[0] is TEdit then  
ما اريده هو كود يمكن أن أتعرف على عدد لنوع واحد من الأدوات مع إمكانيتي التعامل معه
أي لا أحتاج أن أجلب عدد كل الأدوات الموجودة في الفورم وأبحث عن نوع كل أداة لأتعرف كيف أتعامل معها وشكرا
 

nouzi:
بعد تعديل كود أخ سامر لي يتوافق مع ما تريد


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---Tag := 0 ;for J_FOR := 0 to varform.ComponentCount -1 do       Begin           if varform.Components[j_For] is TEdit then          begin            Tag := tag +1   ;          end;       end; showmessage (inttostr(tag); تستطيع التعديل على الكود حسب الحاجة واستعمل متغيير بدل
Tag
هذا لاني من الجوال

Al-Eid:

--- Quote from: nouzi on August 03, 2021, 04:12:52 pm ---بعد تعديل كود أخ سامر لي يتوافق مع ما تريد


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---Tag := 0 ;for J_FOR := 0 to varform.ComponentCount -1 do       Begin           if varform.Components[j_For] is TEdit then          begin            Tag := tag +1   ;          end;       end; showmessage (inttostr(tag); تستطيع التعديل على الكود حسب الحاجة واستعمل متغيير بدل
Tag
هذا لاني من الجوال

--- End quote ---

بارك الله فيك أخي nouzi على المجهود يبدوا حسب إجابتك أنه لا يوجد ما أبحث عنه لأن هذا الكود يعطيني بالفعل عدد الأدوات للنوع الذي أبحث عنه ولكن ما كنت أقصده أن يكون عبارة عن سطر واحد فأستخرج عدد Edit أو عدد combobox أو عدد bitbtn بدون إستعمال For  و if
شكرا مرة ثانية وبارك الله فيك

nouzi:
أخ
@Al-Eid
ما فيه مشكلة، لا أعرف أن كان هناك مكتبة أو رمز آخر يؤدي الغرض المطلوب ، لكن من خلال الكود السابق تستطيع كتابة دالة "وظيفة " تقوم بالمطلوب وحسب ما تريد قليل من الجهد سوف تحصل على مرادك الأمر ليس صعب خصوص أن أغلب ما تريده موجود في الرمز السابق 

Al-Eid:

--- Quote from: nouzi on August 04, 2021, 11:16:44 am ---أخ
@Al-Eid
ما فيه مشكلة، لا أعرف أن كان هناك مكتبة أو رمز آخر يؤدي الغرض المطلوب ، لكن من خلال الكود السابق تستطيع كتابة دالة "وظيفة " تقوم بالمطلوب وحسب ما تريد قليل من الجهد سوف تحصل على مرادك الأمر ليس صعب خصوص أن أغلب ما تريده موجود في الرمز السابق

--- End quote ---

  دالة  :-\   ::) نعم فكرة رائعة رغم أني أستخدم الدوال كثير إلا أني لم أفكر يذلك  :D :D  شكرا على التنبية
 

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version