حياة

كيفية تنفيذ حدث OnCreate لكائن Delphi TFrame

كيفية تنفيذ حدث OnCreate لكائن Delphi TFrame

TFrame هو حاوية للمكونات. يمكن أن تكون متداخلة في أشكال أو إطارات أخرى.

الإطار ، مثل النموذج ، هو حاوية للمكونات الأخرى. يمكن أن تتداخل الإطارات في أشكال أو إطارات أخرى ، ويمكن حفظها على لوحة المكونات لسهولة إعادة استخدامها.

في عداد المفقودين OnCreate

بمجرد البدء في استخدام الإطارات ، ستلاحظ أنه لا يوجد OnCreate عنصر الحدث الذي يمكنك استخدامه لتهيئة الإطارات الخاصة بك.

باختصار ، السبب في عدم احتواء الإطار على حدث OnCreate هو عدم وجود وقت مناسب لإطلاق الحدث.

ومع ذلك ، من قبل تجاوز طريقة إنشاء يمكنك محاكاة حدث OnCreate. بعد كل شيء ، يتم إطلاق OnCreate for Forms في نهاية مُنشئ Create - لذا فإن تخطي Create for Frames هو وجود حدث OnCreate.

فيما يلي الكود المصدري لإطار بسيط يعرض خاصية عامة ويتجاوز إنشاء مُنشئ:

وحدة WebNavigatorUnit.

جهة تعامل

الاستخدامات

ويندوز ، الرسائل ، SysUtils ، المتغيرات ، فئات ،

الرسومات ، الضوابط ، النماذج ، الحوارات ، StdCtrls ؛

نوع

TWebNavigatorFrame = صف دراسي(TFrame)
عنوان urlEdit:
  

نشر

لف: خيط;
    

إجراء SetURL (CONST القيمة: خيط) ;
  

عامة

    البناء إنشاء (AOwner: TComponent) ؛ تجاوز;
  

نشرت

    خاصية عنوان URL: قراءة سلسلة لف كتابة SetURL.
  

النهاية;

التنفيذ{$ R * .dfm}

البناء TWebNavigatorFrame.Create (AOwner: TComponent)؛

ابدأ

  وارث إنشاء (AOwner) ؛
 

// "OnCreate" code

عنوان URL: = '//delphi.about.com' ؛

النهاية;

إجراء TWebNavigatorFrame.SetURL (CONST القيمة: خيط) ;

ابدأ

fURL: = القيمة ؛

urlEdit.Text: = Value؛

النهاية;

النهاية.

يعمل "WebNavigatorFrame" كمشغل موقع ويب يستضيف تحريرًا وتحكمًا في الأزرار. ملاحظة: إذا كنت جديدًا على الإطارات ، فتأكد من قراءة المادتين التاليتين: تطوير المكونات المرئية باستخدام الإطارات ، واستبدال جداول علامات التبويب بالإطارات.