Forum > Arabic

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

(1/7) > >>

Al-Eid:
السلام عليكم بهذا الكود بالأسفل يمكن أن أتعرف على الأدوات الموجودة في الفورم


--- 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";}};} ---[code=pascal]   for J_FOR := 0 to varform.ComponentCount -1 do   Begin    if Copy(varform.Components[j_for].Name,1,4) = varcontrol then    begin     if varform.Components[j_For] is TEdit then Tedit(varform.Components[j_For]).Text :=''     else if varform.Components[j_For] is TComboBox then Begin TComboBox(varform.Components[j_For]).ItemIndex :=-1; TComboBox(varform.Components[j_For]).Text :=''; end     else if varform.Components[j_For] is TListBox then TListBox(varform.Components[j_For]).ItemIndex :=-1     else if varform.Components[j_For] is TCheckBox then TCheckBox(varform.Components[j_For]).Checked :=False     else if varform.Components[j_For] is TRadioButton then TRadioButton(varform.Components[j_For]).Checked :=False     else if varform.Components[j_For] is TDateTimePicker then TDateTimePicker(varform.Components[j_For]).Date := Date     else if varform.Components[j_For] is TFloatSpinEdit then TFloatSpinEdit(varform.Components[j_For]).Value := 0     else if varform.Components[j_For] is TSpinEdit then TSpinEdit(varform.Components[j_For]).Value := 0     else if varform.Components[j_For] is TMemo then TMemo(varform.Components[j_For]).Clear ;      end;    end; [/code]

سؤالي هو عن كود لأتعرف مثلا على محررات النصوص فقط بدون المرور على كل الأدوات

pascal111:
لستُ بارعاً جدّاً في الـ Free Pascal لكنّني أظنّ أنّ سؤالكـ مُتعلّق بالكلمة المِفتاحيّة "is" فابحث عنها في وثائق اللغة المتوفّرة online وإن شاء الله يكون الحل من وراءها ،وعُذراً فالإنترنت لديّ رديءٌ هذه الأيام

Zaher:
و بعد ان تتعرف عليها ماذا تريد ان تفعل
السطر الاول يعطي المهمة المناسبة لك


--- 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";}};} ---      for J_FOR := 0 to varform.ComponentCount -1 do       Begin           if varform.Components[j_For] is TEdit then           begin                (varform.Components[j_For] as TEdit).Text := '';          end;       end;  

nouzi:
أو اهنيك أخ العيد على اول موضوع لك في القسم العربي
اتمنى ان يكون هناك نشاط أكثر من أجل استمرارية القسم
......................
بخصوص الكود عندي مدة و انا بعيد عن البرمجة الا من خلال الحوارات أو المحادثات في المواقع التواصل ،اخي لكن يبدو الكود معقد ، من وجهة نظري يمكن تحسين الشفرة

nouzi:
اه سبقني الاخ زاهر ههههه

Navigation

[0] Message Index

[#] Next page