البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
البرمجة الغرضية التوجه في دلفي
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>البرمجة</strong> <strong>الغرضية</strong> <strong>التوجه</strong> <strong>في</strong> دل<strong>في</strong><br />
عروة عيسى<br />
: تطبيق عملي<br />
كلنا نتعامل مع العنصر الجميل<br />
الحل<br />
، DBNavigator<br />
ولكن هذا العنصر لا يحوي خاصية لضبط اللون<br />
المتحول Color متحول محمي للصنف TDBNavigator إكتب شفرة تحويل اللون إلى الأحمر<br />
،<br />
.<br />
:<br />
أولا إضبط الخاصية Flat للنا<strong>في</strong>غيتور إلى<br />
ثانيا أضف شفرة مشاة للآتية<br />
.<br />
True<br />
:<br />
إذا علمت أن<br />
type NewNav=class(TDBNavigator) ;<br />
procedure Tform1.Button1Click(Sender: Tobject);<br />
begin<br />
NewNav(DBNavigator1).Color:=clred;<br />
end;<br />
لابد من الإشارة أن هذة العملية ليست قياسية<br />
،<br />
جعل كاتب الصنف الأساسي البيانات محمية لو أنة يريد مشاركتها<br />
لضبط الخاصية Flat ولن تظهر التغيرات بلا ذلك<br />
مع أا تصلح ويمكن إستخدامها <strong>في</strong> كثير من الأحيان<br />
،<br />
،<br />
،<br />
ولكن أشدد عليك أن تتأكد من أا الطريقة الأخيرة لذلك<br />
ملاحظة<br />
.<br />
:<br />
ولكن لماذا<br />
لاحظ مثلا <strong>في</strong> المثال السابق أننا أضطررنا<br />
الخلاصة يمكنك إستخدام هذة الطريقة لتحقيق غاية ما،<br />
يجب أن يكون تعريف الصنف المشتق و شفرة الدخول للصنف الأب <strong>في</strong> نفس الوحدة<br />
.<br />
NewNav(DBNavigator1).Color:=clred;<br />
والتعريف ; NewNav=class(TDBNavigator) type<br />
أي السطر<br />
يجب أن يكونا بنفس الوحدة<br />
،<br />
وعند فصلهما <strong>في</strong> وحدات مختلفة فإن الشفرة السابقة لن تترجم<br />
.<br />
٣٤