دخول

abdelali91 · 03-04-2011, 04:15 PM

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

**kachwahed** · 03-04-2011, 06:15 PM

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

abdelali91 · 04-04-2011, 09:35 AM

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

***محمد عبد العزيز*** · 04-04-2011, 11:12 AM

وعليكم السلام ورحمة الله

إقتباس :لم أجد ما أبحث عنها

هل بحثت لكي لا تجد! من الرابط السابق الأول

كود :
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;

abdelali91 · 04-04-2011, 11:48 AM

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

***محمد عبد العزيز*** · 04-04-2011, 11:55 AM

إقتباس :تنشى العناصر بطريقة نظامية

هذه عليك، فكر قليلا
المسؤول عن العشوائية Random المثال السابق

abdelali91 · 04-04-2011, 01:23 PM

هذه محاولتي
بقد قمت بإستبدال 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;

لكنه لم يصلح

***محمد عبد العزيز*** · 04-04-2011, 01:56 PM

إقتباس :لم يصلح

لانك تغيير قيمته اى صفر كل مرة
احذف السطر:

كود :
i:=0;

abdelali91 · 10-04-2011, 11:34 AM

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة