delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيفية إدراج عنصر TEdit كلما ظغطت على زر أثناء تنفيد البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
كيف إدراج عنصر Tedit أثناء تنفيد البرنامج كلما ضغطت على زر
وعليكم السلام ورحمة الله وبركاته
http://www.delphi4arab.net/forum/showthr...p?tid=1377
http://www.delphi4arab.net/forum/showthr...p?tid=4324
هناك غيرها... لا تنسى استخدام البحث
بالتوفيق.
لقد قمت برؤية الراوبط لكن لم أجد ما أبحث عنها
وعليكم السلام ورحمة الله
إقتباس :لم أجد ما أبحث عنها
هل بحثت لكي لا تجد! من الرابط السابق الأول
كود :
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;
شكرا لك اخي
لقد جربت الكود وهو شغال 100 بال100
لكن أود أن تنشى العناصر بطريقة نظامية أي تكون مصفوفة جنبا لجنب وليست عشوائية
إقتباس :تنشى العناصر بطريقة نظامية
هذه عليك، فكر قليلا
المسؤول عن العشوائية Random المثال السابق
هذه محاولتي
بقد قمت بإستبدال 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;

لكنه لم يصلح

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

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