الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية انشاء ايديت لا اعرف عددها عند التنفيذ؟؟

مغلق
بدأه essam7 في 20 يوليو 2006 · 2 رد · 567 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

هذا الرابط قد حل نصف السؤال:

/index.ph...c=42401&hl=

لكن ما اريده انا هوو التالي:

عندي فورم1 عند ضغط زر عليه اريد اظهار فورم2 وعلى الفورم2 اريد ان تظهر ايديتات بعدد محدد (حسب متحول انتجر)

السؤال هو انه يجب ان نعرف متغير من نوع tedit ثم :

var

Form1: TForm1;

t:tedit;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if t<>nil then

t.Free;

t:=tedit.Create(self);

t.Parent:=self;

t.left:=ComboBox1.Left+ComboBox1.Width+5;

t.Top:=ComboBox1.Top;

t.Text:=ComboBox1.Text;

end;

لكن انا لا اعرف مسبقا كم ايدت سانشئ فكيف اضع بقسم الفار ؟؟؟

هل اضع 100 T احتياطا!!! غير معقول!!

للعلم بحثت في المنتدى ولم اجد اقرب من هالاجابة

جربت هالكود لكن!!

t:= TEdit.Create(Self);

t.Parent:= fmDifferentSMS;

T.Top:= 10;

T.Left:= 10;

T.Name:= 'T1';

T:= TEdit.Create(Self);

t.Parent:= fmDifferentSMS;

T.Top:= 50;

T.Left:= 10;

T.Name:= 'T2';

بالفعل وضع عدد 2 ايديت لكن المشكلة ان اسميهما هما T وليس T1 ,T2 كما بالكود!!!

#2 
 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
t:TEdit;
begin
  for I := 0 to 10 - 1 do
  begin
	t:= TEdit.Create(Self);
	t.Parent:= self;
	T.Top:= 10 + i * 10;
	T.Left:= 10 + i * 10;
	T.Name:= 'T' + IntToStr(i);
  end;
end;

هذا الكود لعمل ما تريد عند انشاء الفورم نحن نسمي كل edit و ذلك باستخدام الخاصية name و بالتالي يمكن معاملتهم برمجيا

للتأكد من انّ الاسماء التي اعطيتها الى ال edit قم بوضع زر ثم اكتب في الحدث onclick ما يلي:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to self.ComponentCount  - 1 do
  begin
	ShowMessage(self.Components.Name);
  end;
end;

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#3

شكرا جزييييييييييييييييلا لك

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

هي طريقة لا بأس بها لاني انشئ الفورم الثانوي ثم اغلقه واحرره من الذاكرة اي لا استهلك موارد نظام!!

شكرا مرة احرى على سررررعة الرد

بس مشكلتي رلما كانت ان يوضعت الحلقة بالفورم الرئيسي وليس في حدث كرييت الفورم الفرعي والمتحول تي كان في لوكال!!

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…