20-06-19, 10:51 PM
(آخر تعديل لهذه المشاركة : 20-06-19, 10:52 PM {2} بواسطة أبوبكر سويدان.)
السلام عليكم ورحمة الله
في بعض الأحيان نحتاج إلى إرسال قيم بعض المتغيرات إلى فورم آخر، ثم العمل عليها هناك.
الأمر هذا ينطبق على كل من دلفي ولازاروس.
لنفرض أن الفورم الذي نريد إرسال المتغيرات إليه اسمه FCalculate، ووحدته اسمها FCalculateUnit.
نذهب إلى الفورم، لو كان معروضاً أمامنا نضغط الزر F12 ليظهر لنا الكود، والعكس الصحيح.
ننتقل إلى قسم التعريفات بالأعلى، وتحت Public نقوم بتعريف بعض المتغيرات:
نعود للفورم السابق، الذي نريد إرسال قيم البيانات منه، ونقوم باستخدام الوحدة الخاصة بالفورم FCalculate وهي FCalculateUnit بالطريقة التالية:
وفي المكان المناسب، نرسل قيم المتغيرات إلى الفورم FCalculate ثم نظهره:
في بعض الأحيان نحتاج إلى إرسال قيم بعض المتغيرات إلى فورم آخر، ثم العمل عليها هناك.
الأمر هذا ينطبق على كل من دلفي ولازاروس.
لنفرض أن الفورم الذي نريد إرسال المتغيرات إليه اسمه FCalculate، ووحدته اسمها FCalculateUnit.
نذهب إلى الفورم، لو كان معروضاً أمامنا نضغط الزر F12 ليظهر لنا الكود، والعكس الصحيح.
ننتقل إلى قسم التعريفات بالأعلى، وتحت Public نقوم بتعريف بعض المتغيرات:
كود :
public
Patient_ID:Integer;
Test_ID:Integer;
CBC_Counter:Integer;
Test_Date:TDateTime;
نعود للفورم السابق، الذي نريد إرسال قيم البيانات منه، ونقوم باستخدام الوحدة الخاصة بالفورم FCalculate وهي FCalculateUnit بالطريقة التالية:
كود :
implementation
uses FCalculateUnit;
وفي المكان المناسب، نرسل قيم المتغيرات إلى الفورم FCalculate ثم نظهره:
كود :
FCalculate.Patient_ID:=Patient_ID;
FCalculate.Test_ID:=Test_ID;
FCalculate.Test_Date:=CDate.Date;
FCalculate.TTest_Name.Caption:=Test_Name;
FCalculate.TTest_Result.Clear;
FCalculate.TRemarks.Clear;
FCalculate.CBC_Counter:=FMain.CBC_Counter;
FCalculate.Insertion_Query.DataBase:= FMain.Conn;
FCalculate.Trans.DataBase:= FMain.Conn;
FCalculate.ShowModal;