delphi4arab منتديات دلفي للعرب
كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج (/showthread.php?tid=2968)



كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - abdelali91 - 03-04-2011

السلام عليكم
كيف إدراج عنصر Tedit أثناء تنفيد البرنامج كلما ضغطت على زر


كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - kachwahed - 03-04-2011

وعليكم السلام ورحمة الله وبركاته
http://www.delphi4arab.net/forum/showthread.php?tid=1377
http://www.delphi4arab.net/forum/showthread.php?tid=4324
هناك غيرها... لا تنسى استخدام البحث
بالتوفيق.



كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - abdelali91 - 04-04-2011

لقد قمت برؤية الراوبط لكن لم أجد ما أبحث عنها


كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - محمد عبد العزيز - 04-04-2011

وعليكم السلام ورحمة الله
إقتباس :لم أجد ما أبحث عنها
هل بحثت لكي لا تجد! من الرابط السابق الأول
كود :
var Edt : TEdit ; begin Edt := TEdit.Create(Self); With Edt do begin Parent:=Form1; width := 70 ; Top := 50+Random(400); left := 50+Random(200); Visible := True ; Enabled := True ; Text := 'hah'; end; end;



كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - abdelali91 - 04-04-2011

شكرا لك اخي
لقد جربت الكود وهو شغال 100 بال100
لكن أود أن تنشى العناصر بطريقة نظامية أي تكون مصفوفة جنبا لجنب وليست عشوائية


كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - محمد عبد العزيز - 04-04-2011

إقتباس :تنشى العناصر بطريقة نظامية
هذه عليك، فكر قليلا
المسؤول عن العشوائية Random المثال السابق



كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - abdelali91 - 04-04-2011

هذه محاولتي
بقد قمت بإستبدال random ب متغير I
كود :
var Edt : TEdit ; begin Edt := TEdit.Create(Self); With Edt do begin I:=0; Parent:=Form1; width := 70 ; Top := 50+I; left := 50+I; Visible := True ; Enabled := True ; Text := 'hah'; ;I:=I+10 end; end;

لكنه لم يصلح


كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - محمد عبد العزيز - 04-04-2011


إقتباس :لم يصلح
لانك تغيير قيمته اى صفر كل مرة
احذف السطر:
كود :
i:=0;




كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج - abdelali91 - 10-04-2011

لقد قمت بوضع i:=0 لإعطاء قيمة إبتدائية للمتغير i