+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار حول نفس المعلومات في ثلاث FORM (/showthread.php?tid=12473)
استفسار حول نفس المعلومات في ثلاث FORM - ahmedhossin - 14-12-2023
السلام عليكم و رحمة الله و بركاته عندي ثلاثة ليفورم FORM بنفس المعلومات للشخص اي نفس التاريخ و نفس تاريخ الميلاد
و يختلفون في المعلومات واريد عندما يتم ملء الاول تظهر الاسماء في الفورم 3 و الفورم الثاني كيف ذلك
الصور مرفقة لانني احسست انني ما فهمتكمش
RE: استفسار حول نفس المعلومات في ثلاث FORM - Mr.DOS - 15-12-2023
سلام عليكم
الذي فهمته منك هو عند ملئ اسم المريض و العمر يتم اعتماده ايضا في الفورم 2 و الفورم3 ؟
ان كان كذلك فالامر سهل قم بالتصريح uses لكل فورم
كود :
uses unit2, unit3;وفي الحدث onchange للعنصر Edit الخاص مثلا بإسم المرض (فورم1)
ضع
كود :
procedure TForm1.Edit2Change(Sender: TObject);
begin
form2.Edit2.Text:= edit2.Text;
form3.Edit2.Text:= edit2.Text;
end;RE: استفسار حول نفس المعلومات في ثلاث FORM - ahmedhossin - 16-12-2023
(15-12-2023, 08:12 PM)Mr.DOS كتب : سلام عليكمجزاك الله خيرا و حفظك و رعاك
الذي فهمته منك هو عند ملئ اسم المريض و العمر يتم اعتماده ايضا في الفورم 2 و الفورم3 ؟
ان كان كذلك فالامر سهل قم بالتصريح uses لكل فورم
كود :uses unit2, unit3;
وفي الحدث onchange للعنصر Edit الخاص مثلا بإسم المرض (فورم1)
ضع
كود :procedure TForm1.Edit2Change(Sender: TObject); begin form2.Edit2.Text:= edit2.Text; form3.Edit2.Text:= edit2.Text; end;
عندي استفسار لو سحمت و
بالنسبة uses unit2.unit3
اضعها في الفورم 2 و الثالث فقط
ام بخصوص الحدث onchange للعنصر Edit
اكرر الكود في كل edit في الفورم 01
RE: استفسار حول نفس المعلومات في ثلاث FORM - ahmedhossin - 16-12-2023
نجحت العملية بارك الله فيك و لكن كيف يمكنني اظهارها في dbgrid
عند التنفيذ تظهر لي هذه اللافتة بارك الله فيك
RE: استفسار حول نفس المعلومات في ثلاث FORM - Mr.DOS - 16-12-2023
السلام عليكم
كود :
Uses unit2, Unit3;تضيفها في الفورم 1 تحت Implementation
وفي الحدث Onchange للعنصر EditName الخاص مثلا بالاسم تضع كود
كود :
form2.Edit2.Text:= EditName.Text;و نفس الشيئ مع العمر
[ مثال ]
.