كيف أطبق هذا الكود على جميع النوافذ ؟

[merouane]

صراحة لم أفهم بالضبط ما تريد

لكن سأحاول الإجابة

توجد طريقة (الطرق تختلف من مبرمج إلى أخر) هي باستغلال غرضية التوجه في الدلفي و العمل مع OnShow

1. بعد إنشاء التطبيق

2. انشئ فورم جديد و اذهب إلى OnShow و اكتب ما تريد مثلا

كود :

procedure TForm2.FormShow(Sender: TObject); begin (Sender as TForm).BringToFront; AnimateWindow((sender as TForm).Handle,1000, AW_BLEND); end;

هذه الفورم لا تلمسها فقط الكود المضاف

3. أنشئ فورم اخرى ستكون Form3 (لا يهم يمكنك تغييره فقط عليك فهم المبدأ)

4. في السورس نغير ما يلي (لاحظ جيدا اللون الأزرق)

كود :

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, [color=Blue]unit2[/color]; type TForm3 = class([color=Blue]TForm2[/color])

هناك طريقة اتوماتيكية

أنظر الصورة المرفقة المصغرة في حال عدم ظهور الصورة

العمليتين 3 و 4 تتكرران عند الحاجة لإنشاء فورم جديد

5. الآن في Form1 فقط ننادي الفورم التي نريدها بدون كتابة شفرة الظهور الخاصة

كود :

procedure TForm1.Button1Click(Sender: TObject); begin Form3.Show; end;

بالطبع المكونات تضاف للفورم الخاص به ولا تضاف إلى الفورم Form2

آمل أنه المطلوب

بالتوفيق