السلام عليكم و رحمة الله و بركاته عندي ثلاثة ليفورم FORM بنفس المعلومات للشخص اي نفس التاريخ و نفس تاريخ الميلاد
و يختلفون في المعلومات واريد عندما يتم ملء الاول تظهر الاسماء في الفورم 3 و الفورم الثاني كيف ذلك
الصور مرفقة لانني احسست انني ما فهمتكمش
سلام عليكم
الذي فهمته منك هو عند ملئ اسم المريض و العمر يتم اعتماده ايضا في الفورم 2 و الفورم3 ؟
ان كان كذلك فالامر سهل قم بالتصريح uses لكل فورم
وفي الحدث onchange للعنصر Edit الخاص مثلا بإسم المرض (فورم1)
ضع
كود :
procedure TForm1.Edit2Change(Sender: TObject);
begin
form2.Edit2.Text:= edit2.Text;
form3.Edit2.Text:= edit2.Text;
end;
(15-12-2023, 08:12 PM)Mr.DOS كتب : [ -> ]سلام عليكم
الذي فهمته منك هو عند ملئ اسم المريض و العمر يتم اعتماده ايضا في الفورم 2 و الفورم3 ؟
ان كان كذلك فالامر سهل قم بالتصريح uses لكل فورم
وفي الحدث 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
نجحت العملية بارك الله فيك و لكن كيف يمكنني اظهارها في dbgrid
عند التنفيذ تظهر لي هذه اللافتة بارك الله فيك
السلام عليكم
تضيفها في الفورم 1 تحت Implementation
وفي الحدث Onchange للعنصر EditName الخاص مثلا بالاسم تضع كود
كود :
form2.Edit2.Text:= EditName.Text;
و نفس الشيئ مع العمر
[
مثال ]
.