وحدة WinForm؛
واجهة
الاستخدامات
رسم النظام، مجموعات النظام، نموذج مكون النظام،
System.Windows.Forms، System.Data؛
يكتب
TWinForm = فئة (System.Windows.Forms.Form)
{$REGION "الرمز المُدار بواسطة المصمم"}
خاصة صارمة
/// <الملخص>
/// متغير المصمم المطلوب.
/// </الملخص>
المكونات: System.ComponentModel.Container؛
Button1: System.Windows.Forms.Button؛
/// <الملخص>
/// الطريقة المطلوبة لدعم المصمم - لا تقم بتعديلها
/// محتويات هذه الطريقة مع محرر الكود.
/// </الملخص>
الإجراءInitializeComponent;
الإجراء Button1_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
محمية بشكل صارم
/// <الملخص>
/// تنظيف أي موارد مستخدمة.
/// </الملخص>
التخلص من الإجراء (التخلص: تجاوز منطقي)؛
خاص
{الإقرارات الخاصة}
عام
إنشاء المنشئ؛
نهاية؛
// يمكن أيضًا كتابته كفصل دراسي. هنا استخدمت السجلات. نظرًا لأن السجل هو نوع قيمة، فإنه يوفر مشكلة إنشاء مثيل.
TClassTest=record
عام
اتحاد كرة القدم:عدد صحيح؛
//مشغل "+" مثقل
إضافة مشغل الفئة (A، B: TClassTest): TClassTest؛
نهاية؛
[التجميع: RuntimeRequiredAttribute(TypeOf(TWinForm))]
تطبيق
{$REGION 'الكود الذي تم إنشاؤه بواسطة Windows Form Designer'}
/// <الملخص>
/// الطريقة المطلوبة لدعم المصمم - لا تقم بتعديلها
/// محتويات هذه الطريقة مع محرر الكود.
/// </الملخص>
الإجراء TWinForm.InitializeComponent؛
يبدأ
Self.Button1 := System.Windows.Forms.Button.Create;
Self.SuspendLayout;
//
//زر1
//
Self.Button1.Location := System.Drawing.Point.Create(96, 88);
Self.Button1.Name := 'Button1';
Self.Button1.Size := System.Drawing.Size.Create(392, 112);
Self.Button1.TabIndex := 0;
Self.Button1.Text := 'Button1';
تضمين(Self.Button1.Click, Self.Button1_Click);
//
//TWinForm
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
Self.ClientSize := System.Drawing.Size.Create(560, 357);
Self.Controls.Add(Self.Button1);
Self.Name := 'TWinForm';
Self.Text := 'WinForm';
Self.ResumeLayout(False);
نهاية؛
{$ENDREGION}
إجراء TWinForm.Dispose(التخلص: منطقي)؛
يبدأ
إذا التخلص ثم
يبدأ
إذا كانت المكونات <> لا شيء إذن
Components.Dispose();
نهاية؛
التخلص الموروث(التخلص)؛
نهاية؛
منشئ TWinForm.Create؛
يبدأ
إنشاء موروث؛
//
// مطلوب لدعم Windows Form Designer
//
this.InitializeComponent;
//
// TODO: أضف أي كود مُنشئ بعد استدعاءInitializeComponent
//
نهاية؛
الإجراء TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
فار
أ، ب، ج: تي كلاس تيست؛
يبدأ
أ.فا :=1;
ب.فا :=2;
C:=A+B; // لم يكن من الممكن تصور استخدام + بين بنيتين (أو فئتين) قبل DELHI8
system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA) );
نهاية؛
{تكلاستيست}
// تنفيذ التحميل الزائد على عامل التشغيل "+".
مشغل الفئة TClassTest.add(A, B: TClassTest): TClassTest;
يبدأ
Result.FA:=A.FA + B.FA؛
نهاية؛
نهاية.