أمثلة على مهارات برمجة دلفي

باعتبارها لغة برمجة جديدة لنظام التشغيل Windows، تحظى لغة دلفي بتفضيل متزايد من قبل المبرمجين والمتحمسين بسبب ميزاتها الممتازة العديدة. تغطي النصائح العشرة التالية نطاقًا واسعًا من المواضيع وأتمنى أن تكون ذات فائدة لعشاق دلفي.

1. مشابه لـ vb. تعمل الأحداث في.

قد تجد أنه لا يوجد ما يعادل vb في دلفي. تعمل الأحداث، لذلك في بعض الأحيان لن نتمكن من جعل Windows يستجيب لأحداث متزامنة متعددة. في الواقع، يتضمن كائن تطبيق دلفي طريقة مشابهة: PROcessMessage يمكنك الاتصال بالتطبيق. ProcessMessage لإكمال مثل vb. نفس وظيفة الأحداث الموجودة في .

2. اتصل بـ NetscapeNavigator في دلفي.

مع شهرة الإنترنت، هل فكرت يومًا في تشغيل متصفح Netscape في برنامج دلفي الخاص بك وعرض الصفحة الرئيسية لعنوان WWW الذي تحدده؟ يمكن للبرنامج التالي إنجاز هذه الوظيفة.

this.programNetscape;

this.usesDDEMan;

الإجراءGo؟؟toURL(sURL: string);

فار

dde:TDDEClientConv;

يبدأ

dde:=TDDEClientConv. إنشاء (لا شيء)؛

com.withddedo

يبدأ

// تحديد موقع نتسكيب. إملف تنفيذى

تطبيق الخدمة:='c: s32program etscape． إملف تنفيذى'؛

//تنشيطNetscapeNavigator

SetLink('Netscape', 'WWW-Activate');

طلب البيانات(′0xFFFFFFFF′);

//gotothespecifiedURL

SetLink('Netscape', 'WWW-OpenURL');

RequestData(sURL+′,,0xFFFFFFFF,0x3,,,′);

كلوزلينك;

نهاية؛

dde. حر؛

نهاية؛

يبدأ

GotoURL('http://www.yahoo.com/');

نهاية.

3. إخراج عدد صحيح منسق.

ستبدو الأرقام الكبيرة نسبيًا صعبة القراءة عند الإخراج. من السهل جدًا عرض الأرقام مع علامات القسم في دلفي، كما يلي: xxxxx. تسمية توضيحية: ΚFormatFloat('#', 524667500).

4. احصل على تلميحات في وقت الترجمة.

في Delphi2.0، عند الترجمة، يمكنك أن تطلب من المترجم أن يخبرك ببعض التلميحات، مثل المتغيرات التي تم الإعلان عنها ولكن لم يتم استخدامها مطلقًا. نحن نعلم أنه يمكنك التحكم فيما إذا كنت تريد أن تقوم دلفي بذلك من خلال الخيارات الموجودة في القائمة، ولكن ماذا لو كنت تحتاج فقط إلى دلفي لمطالبتك في مقطع كود محدد، بسبب بعض الاحتياجات الخاصة؟ يرجى الرجوع إلى الإجراءات التالية.

{$هينتون}

الإجراءTform1. Button1Click(Sender: TObject);

فار

س: عدد صحيح؛

يبدأ

نهاية؛

{$HINTOFF}

5. تغيير خلفية Windows95.

يمكنك تغيير خلفية الشاشة بسهولة في دلفي، يرجى الرجوع إلى الإجراء التالي.

this.processChangeIt;

فار

Reg:TregIniFile;

يبدأ

Reg:ΚTRegIniFile. إنشاء ("لوحة التحكم")

;

ريج. WriteString ("سطح المكتب"، "ورق الحائط"،

'ج: pwin95forest. bmp');

ريج. WriteString('سطح المكتب', 'TileWallpaper

′،′1′)؛

ريج. حر؛

معلومات معلمات النظام (SPI-SETDESKWALLPAPER، 0

، لا شيء، SPIF-SENDWININICHANGE)؛

نهاية؛

6. احصل على تاريخ آخر استخدام للملف.

توجد وظيفة جديدة في نظام التشغيل Win95، وهي الحصول على آخر تاريخ للوصول إلى الملف. يعتمد برنامج CleanSweapforWin95 الشهير على هذه الوظيفة كأحد الأسس للحكم على ما إذا كان يتم الوصول إلى الملف بشكل متكرر. في دلفي يمكننا تحقيق هذه الوظيفة من خلال البرنامج التالي.

functionGetFileLastaccessTime(sFileName:string):TDate??Time;

فار

ffd:TWin32FindData;

دفت:دوورد؛

lft:TFileTime;

ح: المقبض؛

يبدأ

//getfileinformation

ح: ΚWindows. FindFirstFile(PChar(sFileName), ffd);

إذا (INVALID―HANDLE―VALUEΙΛh) إذن

يبدأ

// نحن نبحث عن ملف واحد فقط، socloSE لدينا "العثور على"

ويندوز. FindClose(h);

//تحويلFILETIMEإلىlocalFILETIME

FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);

//تحويلFILETIMEإلىDOStime

FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);

//أخيرًا، تحويل DOStimetoTDateTimeforuseinDelphi'snativedate/timefunctions

النتيجة: ΚFileDateToDateTime(dft);

نهاية؛

نهاية؛

سوف يقوم GetFileLastAccessTime() بإرجاع تاريخ الوصول الأخير للملف الذي تحدده بتنسيق TdateTime في دلفي.

7. تسميات ملونة.

لم نعد راضين عن التسميات البسيطة التي توفرها دلفي. هل يمكن أن يكون لدينا خطوط وألوان مختلفة في التسميات لإثراء قدرات الأداء لدينا. الجواب هو نعم، وليست هناك حاجة لعناصر التحكم التي توفرها أطراف ثالثة، نحتاج فقط إلى استخدام TRichEdit الذي توفره دلفي نفسها بذكاء. قم أولاً بإزالة حد عنصر التحكم TRichEdit: RichEd??it1. BorderStyle: ΚbsNone; قم أيضًا بتعيين سمة القراءة فقط على true: RichEd??it1. ReadOnly: ΚTrue، ثم تستخدم برامج مثل الكتابة لإنشاء نص بتنسيق RichText، والذي يمكن عرضه من خلال العبارة التالية:

تحرير غني1. نص عادي: ΚFalse؛

تحرير غني1. خطوط. LoadFromFile('c: est.rtf');

8. كيفية منع Win95 من عرض الأخطاء الجسيمة.

بغض النظر عن كيفية تصحيح أخطاء برنامجك بشكل متكرر، بعد تسليمه للمستخدم، قد تحدث أخطاء غير متوقعة. كيفية منع Win95 من عرض نافذة بيضاء وإخبار المستخدمين بحدوث خطأ محرج غير متوقع؟ يمكننا أن نفعل هذا:

فار

wOldError؟؟ الوضع: كلمة؛

يبدأ

// Tellwin??dowstoتجاهل الأخطاء الحرجةوحفظ العملة??renterrormode

wOldError??Mode: ΚSetEr??rorMode (SEM-FAILCRITI??CALERRORS);

يحاول

// الكود الذي قد يولد خطأ فادحا يذهب هنا. . .

أخيراً

// العودة إلى وضع الخطأ السابق

SetErrorMode(wOldErrorMode);

نهاية؛

نهاية؛

استخدم SetErrorMode() بشكل أساسي لإكمال هذه الوظيفة.

9. الكائن الذي تم النقر عليه للتو بالماوس.

في Win95، يلعب الزر الأيمن للماوس دورًا كبيرًا، ومع ذلك، ولأسباب تاريخية، فإن استخدام الزر الأيمن ليس فعالاً بدرجة كافية حتى في دلفي. يمكن للبرنامج التالي أن يخبرك بكيفية معرفة اسم الكائن الذي تريده فقط انقر بزر الماوس الأيمن. قم أولاً بإنشاء قائمة منبثقة، ومن ثم يمكن للتعليمة البرمجية التالية أن تخبرك باسم الكائن الذي نقرت عليه بزر الماوس الأيمن للتو: Popup??Menu1. PopupComponent. اسم الفئة.

10. تحقق مما إذا كان قد تم تغيير القرص المضغوط أو الأقراص الأخرى.

إن أبسط طريقة للتحقق مما إذا كان قد تم تغيير القرص المضغوط أو القرص هي التحقق من رقم وحدة التخزين الخاصة به. يمكنك ببساطة استخدام الوظيفة التالية لإرجاع رقم سلسلة وحدة تخزين القرص GetDiskVolSerialID ('E') ورمز الوظيفة كما يلي:

functionGetDiskVolSerialID(cDriveName: char): DWord;

فار

dwTemp1, dwTemp2:DWord;

يبدأ

GetVolumeInformation(PChar(cDriveName+′:′), Nil, 0, ΝResult, dwTemp2, dwTemp2, Nil, 0);

نهاية؛